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1.0 SUMMARY 

This volume of the Thermal APU/Hyr^v iulics Analysis Program (TAHAP) 
documentation contains all the User's Guide information plus pro- 
gram description necessary to run and have a general understanding 
of the program. This information consists of general descriptions 
of the APU/Hydraul ic System and the TAHAP model , input and output 
data descriptions, and specific subroutine requirements. Deck set- 
ups and input data formats are included in Appendix A while 
Appendices B thru E have other necessary and/or helpful information 
for using TAHAP. Volume II of the TAHAP documentation consists of 
the math model descriptions for the driver program and each of its 
supporting subroutines. 



2.0 INTRODUCTION 

McDonnell -Doug! as Technical Services Co. (MDTSCO) under the Space 
Shuttle Engineering and Operation'; Support (SSEOS) contract is 
responsible fur providing support to the Consumables Analysis 
Section (CAS) of the Mission Planning and Analysis Division of 
NASA/ JSC. The Consumables Analysis Section is responsible for 
providing consumables budgets for the electrical, mechanical 
(Auxiliary Power Unit (APU)/Hydraulics) , and environmental con- 
trol systems of the Space Shuttle Orbiter. The MDTSCO support 
of CAS in this effort includes determining APU subsystem fuel 
(hydrazine) and APU/Hydraulic water consumables requirements, 
and performing various studies to assess the APU and Hydraulic 
system mission requirements compatibility with system operational 
and performance constraints. This support is partially accom- 
plished through the use of the Thermal APU/Hydraulic Analysis 
Program (TAHAP). The TAHAP documentation has been divided into 
two volumes. This document is the User's Guide and Programmer's 
Manual for TAHAP. The math model descriptions of the driver 
pr’ogram and the supporting subroutines are presented in Voir H. 



3.0 PROGRAM DESCRIPTION 


The thermal APU/riydraulics Analysis Program (TAHAP) is a dynamic 
simulation of the Auxiliary Power Unit/Hydraulic (APU/Hyd) System 
thermal performance. In the following sections there is a general 
description of the APU/Hyd system itself and the TAKAP model along 
with some background information on the model. A description of 
the basic program structure including reference to the routines 
and special variables which control the progress of the program 
is contained in Sec. 3.1.4 followed by a brief description of each 
of the TAHAP supporting subroutines. 

3.1 General Description 

The following sections contain a general description of the 
APU/Hyd system and briefly describe the way TAHAP simulates it. 

The purpose and capabilities of the model are al so discussed along 
with some background information concerning the model 's origin 
and evaluation.' 

3.U1 Purpose and Capabilities of TAHAP 

TAHAP is designed to simulate the APU/Hydraul ic system to the 
level of detail required to adequately determine mission timeline- 
dependent consumption rates for both N 2 H 4 for APU power and water 
for APU and Hyd system heat rejecti on. Its primary purpose i s to 
compute these APU/Hydraul ics consuniables requirements. A secondary 
purpose of TAHAP is to evaluate the compatibility of system perfor- 
mance constraints with mission requirementSi Two versions of 
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TAHAP were developed to run mission consumables analyses for both 
Approach and Landing Test (ALT) and Orbital Flight Test (OFT) 
missions. 

3.1.2 General Description of the APU/Hydraulic system and its 
simulation 

The Orbiter hydraulic subsystem is comprised of three essentially 
parallel fluid circuits which supply hydraulic power to the Flight 
Control surfaces. Space Shuttle Main Engine (SSME) contv''ols, SSME, 
Thrust Vector Control (TVC), landing gear and other utility actua- 
tors. Each hydraulic circuit is po'wered by a constant pressure, 
variable displacement, main pump which is driven by one of three 
APU’s in the APU subsystem. Each APU consists of a 2-stage turbine 
which drives the main hydraulic pump through a speed reduction 
gear box, roughly 19 to 1 . The turbine is powered by the catalytic 
decomposition of liquid hydrazine (N 2 H 4 ) supplied to a gas gen- 
erator from a fuel pump-augmented blowdown supply system. A lub- 
rication oil circul ati on- system powered by the APU gearbox is used 
to provide active thermal control for each APU. 

Heat rejection for each APU Tube oil and hydraulic oil loop is 
provided by one of three water boilers for OV-TOl and one of three 
water Spray boilers for OV-102, Separate heat exchangers are 
provided for each of the fluid loops running through each water 
(spray) boi ler. 
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The OV^IOl and OV-102 APU/HydrauHc system fluid loops simulated 
by TAHAP are illustrated in Figures 3-1 and 3-2 respectively. 

These fluid loops are simulated as follows: 

The individual instantaneous actuator flowrate demands are used 
• for determining the heat loads on the hydraulic system, and the 
main pump power input requirements. API) performance data, normal- 
ized to main pump input power, is used to compute fuel requirements 
directly. The water consumption rates are determined by computing 
^ the heat loads on the water boiler. This is accomplished by com- 
puting the thermal mass response to hydraulic heating at nodes for. 
each actuator in the fluid circuit and computing the main pump 
and API) gearbox v/aste heat rejection. The heat sink performance 
of the water; boiler is computed using predicted heat exchanger 
effectiveness for the environmental conditions and the fluid con- 
ditions at the inlet. 

3.1.3 FEAR Documentation • 

TAHAP is an application of the FORTRAN Environmental Analysis 
Routines (FEAR, Ref. 1 ) developed by the TRVi Systems Division and 
modified as required. The routines in FEAR were originally written 
as utility support for Environmental Control and Life Support 
Systems (ECLSS) consumables analyses models. A driver program 
was written for the APU/Hydraulics consumables analyses using FEAR. 
Consequently many of the subroutines have lines of code or large 
portions of arrays utilized in ECLSS applications only. These 
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areas have been left in the coding on a non-interference basis 
in order to keep from unnecessarily deviatinq from the qeneral 
FEAR application techniques and FEAR documentation. The effort 
required to remove such sections has not been justified since 
they are essentially transparent to the user. Careful deletion 
of those sections, hov/ever, should not effect the running of 
TAHAP. These sections are not addressed in the write-up 
except in defining storage allocation. (Appendix D) 

3.1.4 Program Structure and Control 

The structure of the Thermal APU/Hydraulics Analysis Program 
(TAHAP) is shown in the diagrams in Figures 3-3 and 3-4. As 
shown, the program control is handled primarily by DRIVER, "MAIN" 
and DRAW. Because of its size the program needs to be overlaid. 

The logical place to divide the program is at the end of a mission 
when "MAIN" calls DRAW, which controls the use of the Cal Comp plot 
package. The routine, DRIVER, merely manages the switch from the 
first layer which has "MAIN" and all the consumables calculations, 
to -the second layer which contains DRAW and its supporting sub- 
routines. "MAIN", which is consequently a subroutine, functions 
as the main routine of the first layer and is referred to as 
the main routine. 

Essenti al to the program control are the routines START , PRINT, 
and'PLOOT. The model is initialized by a call to START which is 
called only once as one of the first exeGutable statements of 
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FIGURE 3-4 TAHAP (OFT VERSION) PROGRAM TREE 
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"MAIN I' START zeroes blank coiiimon, reads in the input data, and sets 
up the computation and print intervals for the program. Once 
the run has been initialized by START and the hydraulic system line 
data tape has been read in (for ALT only) it is driven by a 
mission timeline v/hich is input on tape. This timeline input 
includes time, total system flov'/rates, actuator flowrates, a con- 
figuration flag, vehicle load factor, and APU speed flag. For 
each time on the tape the distribution of actuators among the 
three systems is determined from the value of the configuration 
flag in conjunction with the loss management matrix which is Input 
on cards. 

PRINT, which is called each computation cycle, manages the print 
frequency and format v/hile the routine, PLOOT, stores the desired 
parameters for plotting on magnetic drum to be retrieved later by 
the DRAW layer. 

The input/output flow is presented in Fig 3-5. 

The timing sequence is set up to use the data on a particular 
record until the time stored in UPTIME, the first word of each 
record , is reached . The present input tape being received 
gives the time at which the rest of the data on the tape record 
becomes applicable. Consequently some logic was developed for , 
saving all the values on the tape except UPTIME until the next 
UPTIME has been read in. The timeline data is further processed 
in order to average the data over the computation cycle. 
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FIGURE 3-5 INPUT/OUTPUT PROGRAM FLOW SCHEMATIC FOR TAHAP 






Frequency of data on the input tape often varies due to its 
origin i.e. the difference between input data created from simu- 
lator output tapesa trajectory tapes or just estimates of the way 
a mission may be run. The averaging and tape record cycling pro- 
cess allows the input data to be totally asynchronous with the 
computation cycle. Tape record frequencies greater or less than 
the computation cycle can be processed. The logic is, however, 
limited to accepting a maximum of 25 data records within one 
computation cycle. 

Since a particular set of data will be used until the value for 
UPTIME is reached it is desirable to keep the program from run- 
ning at its constant computation cycle during the on-orbit periods 
v;hen the APU/Hyd system is shutdown on long missions (i.e. - 163 
hours on Baseline Reference Missions 1 & 2.) The program control 
designed for this situation involves the subroutine RSTART and 
the variable, FUDGE, A mission can be reinitialized at a pre- 
selected time by utilizing one of two options available in RSTART. 
The component and fluid temperatures are reinitialized just before 
deorbit by either reading in a new set of. temperature initializa- 
tion cards or defining all nodes to a predetermined constant. The 
time value read in from tape is scaled by the variable, FUDGE, 
Example: If Pre-deorbit checkout begins at 163. 46 hrs. insert 

an ‘'IF" statement that will Start substacting FUDGE 


with a value of 163. hrs from UPTIME at .4 hrs. This 
will allow a sufficient number of on-orbit solutions 
to bring the system to equilibrium and the time values 
on the plots can be easily altered to reflect the true 
mission time. 

The value for FUDGE is input on the Summary Table control card 
described in Appendix A. 1 . For all other missions , FUDGE will • 

default to zero, 

Also integral to the basic program structure are several of the 
variables in the blank coirmon block. Due to the time dependence 
of the component and fluid temperatures, P and F, storage, loca- 
tions are provided for both current and previous values through 
the timing indices, K and L. Until the beginning of the thermal 
loop, ''K" refers to the most recent values of P and F, During 
the thermal loop "L" is filled with the present solution and "K" 
retains the previous, . At the end of each cycle through the 
thermal loop "L" is filled with the present solution and "K" 
retains the previous. At the end of each cycle through the themal 
loop the subroutine FLIP is called which exchanges the values. 

Specific requirements for the control subY'outines raentioned are 
discussed in Sec 6, "Timeline input' data is listed and described 
in detail in Sec 4.2 and general storage allocation for blank 
conwon is given in Appendix D. 
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3.2 OV-101 (ALT) and OV-102 (OFT) Functional Flowcharts 

Due to differences between the OV-101 and OV-102 vehicles and the 

kind of niibsion involved, the model is split into two versions. 

The primary differences involve heat sink devices (water boiler 
for ALT, water spray boiler for OFT), and the difference in flight 
environment between ALT and OFT. The OV-101 vehicle is subject 
to atmospheric flight throughout the entire mission, v/hile OFT 
missions involve relatively short operating periods in the tenuous 
atmosphere. Several subroutines are included in the ALT version 
for modeling the hydraulic lines in greater detail than is done 
in the OFT version. Tiie lack of insulation on the OV-lOl lines 
and the atmospheric environment requires that different methods 
for computing heat transfer be employed for OV-101 than those used 
for 0V-102 on orbital missions. 

BOILP, the subroutine used to model the OV-lOl water boiler is 
used to model the pool mode of the spray boiler on the 0V-102 
vehicle. The spray mode is modeled by the subroutine, SPRAY, 
along with several flag checks in the main routine and in MOD. 

All the present model ing of the spray boiler is preliminary and 
should be changed as soon as spray boiler design information 
is available. - 

Most of the differences are reflected in the "MAIN" routines. 
Functional Flowcharts for MAINI (ALT) and MAIN2 (OFT) are shown 
in Figures 3-8 and 3-9 respectively. 
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FIGURE 3-6 FUNCTIONAL FLOWCHART' OF HAINl 
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3.3 General Description of Subroutines 

The follovnng is a brief description of each of the subroutines 

called from either the ALT or OFT versions of the Thermal APU/ 

Hydraulics Analysis Program (TAHAP) 

BOILP " Determines sensible and evaporative heat sink 

performance of water boiler, computes and integrates 
consumption rates. 

DRAW “ Retrieves data to be plotted from high speed drum, 
prepares it and calls the CALCOMP routines. 

FLIP - Reverses timing indices. 

FLOPVIR - Computes pump efficiency, shaft horsepov/er, and case 
drain flowrate, converts flowrate units. 

FUEL “ Calculates fuel rates, fuel and energy consumed and 
accumulates consumables preparing accumulated values 
for summary table. 

FUNC - Function subprogram which outputs value of polynomial 
curve fit evaluated at a given X. 

HYDACT - Uses system configuration flag and loss management matrix 
to build array of actuator system assignments. 

HYDFLD - Solves equations for specific heat and density of 
hydraulic fluidv computes heat transfer coefficient 
for water boiler hydraulic heat exchanger. 

ICMVRT Converts node numbers to hollerith characters for 
plot titles. 
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LILOAD - Reads in Tine data and constructs necessary arrays. 

(ALT model only) 

LINFLO - Defines the. flowrates in the hydraulic 1 ines. (ALT model 
only) 

LOOP - Defines current temperature of starting node of thermal 
loop equal to that node's most recent temperature 
solution. 

LUBOIL "Solves equations for specific heat and density of 

lubrication oil, computes heat transfer coefficient for 
lube oil heat exchanger. 

MIX - Determines resulting flow and fluid temperature from 
mixing of flow from several branches,. 

MOD - Solves general equations to proportion flov/ split 
between two branches in response to prescribed 

temperature control location and propnrtinnal gains. 

PASS " Solves heat transfer equations for a passive (external 
to fluid loop) component. 

PLATE " Determines diffusion node heating, 

PLATO - Determines hydraulic and diffusion node heating. (Entry 
point to plate) 

PLATEC " Determi nes d1 f f us ion node heating for components 

thermally coupled to other components or boundary nodes 

PLATO C" Determines hydraulic and diffusion node heating for 
components thermally coupled to other diffusion and/ 
or boundary nodes. (Entry point to PLATEC) 
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PLOOT - Puts data for requested CALCOMP plots onto high speed 
drum. 

PRINT (SELECT) - Provides print-out in specified format and 
updates time. 

QBAL - Performs a heat balance by computing the total heat 

in, total heat out, and total. heat stored in the system 
for the purpose of error detection, and numerical error 
magnitude assessment. 

RSTART - Reinitializes node data for long missions. (OFT model 
only) 

SCAL - Performs scaling for CALCOMP plots, used by DRAW. 

START - Reads input data in specified formats and sets up 
coupling data. 

SPRAY - Presently used for simulating spray boiler and computing 
water consumed. Should be replaced as soon as spray 
boiler design data is available. (OFT model only) 

THERMP - Computes the heat loss in the hydraulic pressure lines 
from the pump to the actuators due to conduction, 
radiation, and convection coupling, determines actuator 
inlet fluid temperatures, and prints out line data. 

(ALT model only) 

THERMR - Computes the heat loss in the hydrciulic return lines 
from the actuators due to conducti on , radi ati on , and 
convection coupling, computes fluid branch mixing 
temperatures 5 and pri nts out 1 i no data. (ALT Model, only) 
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TRANS 


- Transfers fTiiid temperature and flov/rates from one 
node to another. . 

ZIPIT - Zeroes several arrays for line data calculations. (ALT 
only) 


4.0 INPUT DATA DESCRIPTION 

The thermal APU/Hydraul ics Program (TAHAP) requires that several 
types of dcfca be input. The data consists of systems data and 
mission timeline data, the specific data required is described in 
the following sections along with a note as to the mode of input 
(card or tape.) The format and units required for each data item 
as vie}} as the input deck setup is described in Appendix A, 

4.1 Systems Data 

The systems data described here consisting of node thermal data, 
node coupling data, and the Toss management and system configura- 
tion matrices must be input on cards. The hydraulic line data 
described in this section is input on tape and is for the ALT 
model only. In section 4.1.6 boundary conditions data which can 
be input is discussed briefly. The format and sequence of these 
cards are described in Appendix A.l. 

4.1..1 Node Therinal Data 

There are six thermal parameters which require definition at each 
diffusion node inlet. Four of these parameters need to be input 
while the remainder are computed within the program. 

The parameters which must be input are: 

1. Thermal capacitance, MCp 

2. Heat transfer coefficient, UA 

3. Initial component temperature 

4. Initial fluid temperature^^^^^^^^^^ 



The other two parameters are computed within the. program and need 
not be assigned values on the node data card. These two parameters 
are, 

1. Dynamic thermal capacitance (referred to as "WCp“ or “flowrate") 

2. Heat load , Q 

Passive thermal nodes need only a value for the thermal capacitance 
and component temperature. Boundary nodes need only component 
temperature, and no data is required for arithmetic nodes. There 
must be a node data card for each node in the model regardless of 
whether or not any thermal parameters need to be specified for that 
node. Values will default to zero where a value is not given. 

4.1.2 Node Coupling Data 

The node couplingcards contain the following data: 

1 . I , J - the coupled nodes 

2. UA|j - conduction/convection coupling heat transfer coefficient 

3. oe AF-- . - radiation coupling heat transfer' coefficient. 

* w 

There is a section of the START routine which rearranges this 
data such that one card for each pair of nodes will handle the 
coupling from I to 0 and conversely. The order of the npdes on. 
the card is insignificant. There are several boundary nodes in 
the model strictly for coupling components to the vehicle 
structure and ambient air, the coupling cards for these node pairs 
I'iso contain a flag for including heat loss to the structure in 
the heat balance equations in the subroutine QBAL. 


4.1.3 Loss Management Matrix 

The loss management matrix (LMMTRX) is one in which each row 
represents an actuator, and the first three columns represent the 
actuator's primary, first standby, and second standby systems, 
respectively. The fourth column is filled with zeroes for ease of 
manipulating the data. Each card has the actuator node number 
on it where it won't be read by the computer for ease in inserting 
or removing cards as the list of actuators changes. The data in 
the matrix for the present list of actuators is on figure 4~1. 
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Figure 4-1 Loss Management Matrix 
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Loss 

Management Matrix 

(cont'd) 
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4.1.4 System Conf iguration Matrix 

The system configuration matrix, IPD0, j‘s comprised of each 
possible combination of pressurized, depressurized and off systems. 

Each row is input on a separate card with the row number in a column 
not read by the computer. This row number is used as the system 
configuration flag. The three columns represent systems 1, 2, and 
3, respectiv^'ly. After the system configuration flag is read from 
the input tape, the matrix is checked for the configuration of each 
system and computes the applicable pump efficiency and total system thermal 
capacitance and builds the arrays of actuators going to each system. 

The system configuration matrix is shown in Figure 4-2. 
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Figure 4-2 System Configuration Matrix 
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4.1.5 Line data (ALT model only) 

The line data, which is read from a data tape contains the following 
information on each record. 

1. the line number 

2. a flag to distinguish between forward and reverse flow in 
system 1 landing gear circuit 

3. coupling node number (structure node minus 250) 

4. complete list of the actuators serviced by this line 

5. the line number 

6. line length 

7. Tine diameter 

4.1.6 Boundary conditions data (ALT model only) 

The model is presently set up with an ambient air temperature vs 
altitude table hard coded into the subroutine BOUNDT. This table 
includes information for a typical cold day, hot day, and normal 
day profile. Another array of coefficients is hard coded in the 
routine which is used in the computation of secondary structure 
temperature and the vehicle compartment air temperature. The 
input required for this computation is a flag on the mission control 
card (described in Appendix A,l)vvhich tells which type of ambient 
air profile is desired for the mission being analyzed. The computed 
structure temperature is stored in the component temperature locations 
for these same structure boundary nodes. Both values are used in 
dete^Tiiining the heat loss in the Tines calculated in THERMP and THERMR. 
The structure temperatures are also used for the heat transfer sol uti ons 
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for coupling between components and boundary nodes. 

If a mission analysis is desired which needs a profile not pro- 
vided by the subroutine, BOUND!, the program can be modified 
to accept a timeline namelist of boundary temperatures. Values 
for each timestep can be found by interpolating betv^een the 
values in the namelist in the same manner as the program inter- 
polates for each altitude value. The data required in each 
set of the namelist profile would include: 

1. The time at which the temperature values in the namelist 
apply 

2 . The secondary structure temperature 

3. The vehicle compartment air temperature 

4. The ambient air temperature. 

4.2 Mission Timeline Data 

For any mission analyzed a mission timeline input tape is 
required. The following data is required on each record. 

1. Time, UPTIME 

2. Actuator flowrates, FL 

3. Total system flowrates, TFL 

4. Pump shaft horsepower, SKIP (not used by TAHAP-power-values 
used are internally generated) 

5. System configuration code, IFLA61 

6. APU opGrating speed flag, ISPDl 

7. Vehicle Toad, GRAV 

8. Altitude iALTZ , 
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Although the set of actuators for OV-101 does not include some of the 
actuators that will be on the OV-102- vehicle there will be words on 
each tape record for all of the actuators* Since the last six actuators 
in the OV-102 list are not applicable to OV-101 their flowrates will be 
read into a different array and be ignored. Zeroes will be given for 
the flowrates of the actuators that are not applicable to the particular 
version being used* This procedure aTlov/s the input tape to be created 
in one standard format. 

The specific format, data types, and units for the mission timeline 
tape are given in Appendix A.I. 


5.0 OUTPUT DATA DESCRIPTION 

The data generated by TAHAP is output in two forms; tabular data 
printout received every time the program i$ run and plots, from the 
CALCOMP plotter, which are only generated if desired. Although 
there is presently no capability in the program for graphic output 
via microfilm or microfiche, the tabular data printout may be out- 
put via microfilm or microfiche through the addition of a control card. 
The following sections describe the data generated by TAHAP, along 
with reference to the places in the program where the data is 
generated. Sample output is shown in Appendix E. 

5.1 Tabul ar Data Printout 

Each of the following sets of data, except the initial output is 
printed at the print frequency input on the run control card. 

5.1.1 Input Data Printout 

The first set of tabular data printout is generated by the START 
subroutine, and is a printout of the card input data. This set of 
printout consists of: 

1. the node coupling data as it has been rearranged by START 

2. the node thermal data initial values 

3. the card images of the plot input data cards 

4. the system configuration matrix 

5. the loss management matrix 

The next set of tabular data printout is generated by the LILOAD 
subroutine, and is a printout of the Tine data input. (ALT model only) 
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1. Each line number, its coupling node and the list of actuators 
serviced by that line 

2. A list of each line number vn'th its location in the array of 
line numbers 

5.1.2 Namelist Data 

The namelist, UPDATE, is printed to show v/hich timeline values were 
used in calculating the data that follows it. Some of this data 
is read from the timeline input tape and the rest is calculated 
internally. The parameters output via namelist are: 

1* UPTIME, time to update information 

2. Total system flowrates resulting from averaging 

3. Actuator flowrates resulting from averaging 

4. POWER, computed from averaged flowrate 

5. SKIP, pov/er values on the timeline tape 

6. ALT2, altitude value read from timeline tape 

7. ALT, altitude resulting from interpolation 

8. IFLAG, system configuration code 

9. ISPD, system operating speed flag. 

,5.1.3 Line heat losses (ALT model only) 

Following the namelist output is the line heat Toss output from 
THERMP and THERMR for each system. 

1. The actuator number and the Tines attached to them 

2. The coupling node number 

3. Line length 


4. Inlet, outlet, and boundary temp for each line 

5. Heat loss rates (BTU/min) and flov^rate (gpm) in each line 

This data for each system is follov/ed by the total heat loss values 
for the lines on that system. 

5.1.4 Boiler Water Level (ALT model only) 

The amount of water (Ibm) in the boiler and the amount of water 
(Ibm) transferred from the storage tank to the boiler is tracked and 
is printed out for each system. These numbers are generated in HAIMl 

5.1.5 Heat Balance - Error Values 

For. the purpose of error detection the total heat input to the 
APU/hydraulic system is compared with the sum of the heat stored 
and the heat leaving the system. The values, computed for the three 
systems combined, are sumimed in the subroutine QBAL. 

The eight values output are: 

1. BTU's in due to main pump shaft povv'er 

2. BTU's in due to turbine heat leak 

3. Total heat in 

4. BTU's out by water boil off 

5. BTU's stored in capacitance 

6. BTU's out due to coupling to structure 

7. Total heat out 

8. Total heat in - Total heat out 

The titles for these columns of output are read from input cards. 

5.1.6 BOILP Output 

To track the operation of the v/ater boiler (OV^-l 01 ) and the pool 
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mode for the spray boiler (OV-102) the following values 
calculated in the subroutine, BOILP, are printed. 

1. Inside boiler pressure, psia 

2. Ambient air pressure, psia 

3. The pressure difference, psia 

4. The saturation temperature, °R 

5. The boiling rate ( BTU/inin) 

6. The flag to tell if the steam vent is choked (-2) or unchoked 
. (= 1 ) 

7. The number of iterations required to find a pressure solution. 

5.1.7 Actuator Node Number List 

Due to the changes in system configuration throughout a mission, 
the list of actuators used by each system changes. A list of the 
actuators on each system is printed out each print interval. Due 
to the use of the loss management matrix without regard to isolation 
valves , an actuator will appear to be on its primary system even 
if it is isolated at the time or not applicable to a particular 
vehicle (i.e. engine and umbilical retract actuators listed on ALT 
missions. ) The actuators have zero flowrates and have no effect 
on the system. 

5.1.8 Node Thermal Data 

The mission time and then the following data is printed out for 
each node in the INODES array v/hich is defined in the main program. 

1. Node number and name 

2. Component temperature, 
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3. 


Inlet fluid temperature, °F 

4. Thermal capacitance, C, BTU/°R 

5. Heat transfer coefficient, UA, BTU/hr-°R 

6. Dynamic thermal capacitance, wcp, ^ 

7. Heat load, Q, BTU/hr. * 

Some accumulated heat loss values are printed out in the "UA" 
column of the ALT version next to the structure nodes v^here 
there would ordinarily be zeroes. Following is a list of the 
structure node number and the value printed there. 

250 ~ APU heat, system 1 

251 - APU heat, system 2 

252 - APU heat, system 3 . 

253 - heat' out by water, system 1 

254 - heat out by water, system 2 

255 - heat out by. water , system 3 

256 - line heat loss to air and structure, system 1 

257 - line heat loss to air and structure, system 2 

258 - line heat loss to air and structure, system 3 

259 - component heat loss to air and structure, system 1 

260 - component heat loss to air and structure, system 2 

261 - component heat loss to air and structure, system 3 

5.1.9 Accumulated Gonsumables 

At the end of each set of node thermal data,, the following con- 
sumables values are printed for each system. 

1. accumulated water usage (Ibm) 

2. accumulated fuel usage (Ibm) 

3. accumulated energy usage (hp-hr) 

5.1.10 Summary Table 

At the end of the mission a consumables summary table which shov/s 
loaded and consumed values for fuel and v/ater along with remaining 
margins is printed. The accumulated water values are tracked in 
BOILP and the accumuHted fuel values are tracked in FULL . The 
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summary table values are collected and printed out in the sub- 
routine PRTTAB. Several constants for the table are input from 
cards. The format and definition of these cards is in Appendix A. 

5 . 2 Graphical Output 

Several different parameters are available for plotting with no 
changes to the program. The parameters which will be stored on 
the CALCOMP tape on any given run will be determined by the input 
plot cards. The format of those cards is given in Appendix A.T. 

On these cards there is a space for the plot type number associated 
with the type of plot desired. The following is a list of the 
available plot types with the type number. (Note: all plots have 

ground elapsed time as the independent parameter). Plot types 
6-16 were designed for ECLSS and will not be enumerated. 

1. fluid temperature (°F) 

2. component temperature (°F) 

3. flowrate (gpm) 

4. heat rate (BTU/hr) 

5. water remaining (Ibm) 

17. fuel used (Ibm) 

18. energy used (hp-hr) 

19. fuel remaining (Ibm) 

20. ambient pressure 

21 . boiler pfressure 

22. miscellaneous; G(X, 3) (boiling rate) , altitude 

23. miscellaneous; G(X,7) (error heat Toad values, power) 

Due to the method of storage allocation in TAHAP, a node number is 
required for each plot card. For some type of plots this isn’t 
applicable (i.e. power, altitude, fuel , and pressure), so these 
variables have been assigned to portions of the 6-array or C-array 
as listed in Table C-1 or assigned an arbitrary number (use 35 for 
altitude^) The node number and plot type are used in PLOOT 


along with the value of the plotting variable to put the necessary 
information onto high speed drum. Minor changes can be made within 
the PLOOT routine so that new parameters can be plotted as long as 
the variable needed is in COMMON. 

The plot titles are processed in the subroutine DRAW and are based 
on the plot type number. The other support routines for DRAW are 
SCAL and ICMVRT. 

If it is desired to change graphics routines, the PLOOT and DRAW 
routines can be deleted and replaced with a routine which generates 
a standard binary data tape with time as the first word on each 
record. With such a data tape several of the graphics packages 
available on EXEC 2 or EXEC 8 (e.g, STLPLT, TRWPLT) can easily 
be implemented. 
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6 . 0 SUBROUTINE REQUIREMENTS 


This section consists of a detailed description of each subroutine 
called by either the ALT or OFT versions of TAHAP. The description 
includes each of the follovnng items where applicable. 

1. Identification 

2. Purpose 

3. Supporting Subroutines 

4. Argument List Definitions 

5. Common Block Reference 

A list of the common blocks used by that routine along with each 
variable input or output from the routine by that block 

6. Local Variable Definitions 

7. Functional Flowchart 

8. Subroutine Listing (see Appendix D) 
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Subroutine BOILP 


Identification 

Name • - BOILP 

Author/Company - T. DeLuna/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 System/ FORTRAN V 

Purpose 

To determine sensible and evaporative heat sink performance of 
water boiler and to compute water usage. 

Argument List Definition 

M “ Inlet node of lube oil heat exchanger 
MU - Outlet node of lube oil heat exchanger 

M2 - Inlet node of hydraulic heat exchanger 

M32 - Outlet node of hydraulic heat exchanger 

P2 - Ambient air pressure 

EA - Effective steam vent orifice area 
STVC - Steam valve closed flag 
STVO *- Steam valve open flag 


Common Block 

Reference/ Input-Output Variables 


Block Name 

Input 

Output 

ARRAY 


G(m ,1)1=1 ,6, G(M2,I),I=1 ,6 

G(M1 ,1)1=8, 9, G(M2,l)iI=8,9 

FLAG, ITTER 

BLANK COMMON 

P(M1,L), P(M2,L). F(m,L) 

F(M2,L), G(M1,3), C(M2,3) 

lOUM(L), DELT 

P(MU,6), P(M?.2,L), F(M11,L) 

F(M22,L), C(M11,3), C(M22,3) 

COMEVP 

IWAT 

WAT, DW, WATLFT 

TYME 

TIHSUM 

SUMARY(I,J) , 1=15,17, 0=1 ,3 
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Local 

Vari abl e 

Definitions 


Name 

lype 

Units 

Description 

A 

R 


I Constants derived for conversion from 

B 

R 


S pressure to saturation temperature from 

C 

R 


) subroutine DEWPT in FEAR 

COEF 

R 


Constants for determining heat of 




vaporization from temperature 

CRTPR 

R 


Critical Pressure ratio 

DELW 

R 

1 bm . 

Water boiled this timestep 

DELTAP 

R 

PSIA 

Pressure difference (ambient-boiler) 

FLAG 

R 


Flag for type of flow, l=unchokedj 2=choked 

GAMMA 

R 


Ratio of specific heats for steam 

GRAV 

R 

ft-lbm/’lbf-sec^ 

Conversion from Ibf to Ibm 

H 

R 


Heat of vaporization 

ITTER 



Number of iterations to get a 




pressure solution 

PI 

R 

PSIA 

Boiler pressure 

PIOOT 

R 


Time derivative of boiler pressure 

PIOLD 

R 

PSIA 

Pressure calculated last comp cycle 

TEMPS 

R 

°R 

Saturation temperature 

WMDOT 

R 

Ibm/hr 

Boil ing rate 

WNDOT 

R 

Tbm/min 

Boi ling rate 
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FIGURE 6-1 FUNCTIONAL FLOWCHART FOR BOILP 
( ^BQILP^ 


t 



DEFINE VARIABLES WHICH WILL NOT CHANGE 
DURING THE ITERATION LOOP 





COMPUTE SATURATION TEMPERATURE FROM 
AMBIENT PRESSURE 




DETERMINE HEAT OE VAPORIZATION OF BOILER 

i 

f 


DEFINE CONSTANT TERMS OF DIFFERENTIAL 
EQUATION 


> 



COMPUTE CRITICAL PRESSURE RATIO 




BOILP 
1 of 3 


UNCHOKED 
STEAM VENT 

FLOW 
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Subroutine BOUNDT (101 only) 
Identification 


Name 


BOUND'!' 


Author/ Comp any 


C. A. Zook/MDTSCO 


Machine/Language - Univac 1108, EXEC 2 System/ FORTRAN V 
Purpose 

To determine the ambient a1r temperature and calculate the structure tempera- 
ture and the compartment air temperature at each of the boundary nodes. 


Common Block Reference/Input-Output Variables 


Block Name 
ALTD 

B.lank Common 


Input 


IDUM(19), 

P(M,K),M=250,261 

F(M,K),M=250,261 


Output 


DUM(2), 

P(H;L) ,M=250,261 
F(M»LhM=250,261 


Local Variable Definitions 


Name 

ALTEMP(X,1) 

ALTEMP(X,2) 


ALTEMP(X,3) 


ALTEMP(X,4) 


BTEMP 


Type Units 


Description 

Altitude values for table look-up 

Cold Day ambient air temp for corresponding 
altitude 

Hot Day ambient air temp for corresponding 
altitude 

Normal Day ambient air temp for corres- 
ponding altitude 

Ambient air temp at current altitude for 
predetermined type of environmental condition 

Coefficients used in determing boundary temps 


65 


Subroutine DRAW 


Identification 

Name - DRAW 

'Author/Company - FEAR/TRW with major modification by 6. Steines/MDTSCG 
Machine/Language - UNIVAC 1108, EXEC 2 system/FORTRAN V 

Purpose 

To retrieve the plot data from high speed drum, rearrange it, prepare 
scaling and call CAL COMP routines. 

Supporting Subroutines 

CCP - CALCOMP routines 

CDATE ^ Checks date for plot title 

ICNVRT - Converts numeric to hollerith for plot title 

SCAL - Performs x and y - axis scaling 

Common Block Referenc e /Input-Output Variables 


Block Name 

Input 

Output 

Blank Common 

DUM(25} 


LUMP2 

TITLE, BIG, WFE 


PSST 

NPLTS , IPLT , JPLT,TSTP ,XAXIS 
YAXIS ,N0PL0T ,NPLPTS ,NTR, 




JWRADR,IRDADR 


Local 

Variable Definitions 


Name 

Type Units 

Description 

ALPHA 

R. , 

Array of data for 1st trace itV group 

BETA 

R 

Array of data for 2nd trace in group 

BIG 

■■ R 

Max value for y-axis {input) 

DATUM 

R t 

Array containing data for all the traces 
in the group 

DPAR 

GG 

Delta y value for y-axis 


Name 


Units 


Im. 


DTIME R 

GAf^MA R 

IDIV I 

I PIT I 

IRDADR I 

ISAVAD I 

IWRADR I 

KTRL I 

NIP I 

NNPLTS I 

NSET • I 

NSETSV I 

PARO R 

PHI R 

REST R 

SUMS R 

THETA R 

TITEL I 

TO R 

YTILE I 

XMAX R 

XMIN R 


hrs 


Description 
Delta X value for x-axis 
Array of data for 3rd trace in group 
Counter for frequency of points 
skipped 

Node number of parameter being plotted 
Location on drum at which to start 
reading data 

Storage variable for starting location 
of data on drum 

Location on drum at which 

Flag for direction of plot on paper roll 

Counter used to determine whether 

Number of plots plus 1 (x) 

Number of traces on plot 

Total number of traces in this group 
of 5 (max) 

Starting value on y-axis 

Array of data for 4th trace 

Array into which to put data from 
record of high speed drum just read 

Array containing X values 

Array of data for 5th trace 

Array containing number of y-titles 
to use for current group 

First value on X-axis 

Hollerith array of y-axis titles 

Max value for y-axis (determined) 

Min value for y-axis (determined) 


FIGURE 6-2 FUNCTIONAL FLOWCHART OF SUBROUTINE DRAW 



DRAW 
1 of 3 
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PREPARE Y-AXIS TITLE BY CONVERTING THE 
NODE NUMBER TO HOLLERITH AND INSERTING 
IT IN THE Y-TITLE ARRAY FOR THAT TYPE PLOT, 
YTILE (s, NUL) 


or 'ERMINE NUMBER OF TRACES ON THIS PLOT 
GO TO THE CALL TO CCP(l) WHICH CORRESPONDS 
TO THAT NUMBER OF TRACES (NSET) 


CALL CCP (1, ETC) 


DRAWS THE SET OF DEPENDENT VARIABLE 

AXES, SCALES, AND TITLES 

DEFINES LEFT BOUNDARY OF PLOTTING AREA 


^^^ARE THERE 

ANY MORE PLOTS’^ 
(X-l+NSETSV > NPLTS) 


( YES 

^FINISHED^ 
.x^ITH NUMBER 0 

Vtraces in this 



















Subroutine FLIP 

Identification 

Name - FLIP 

Author/Conipany ~ FEAR/TRW - this routine formerly part of PRINT routine 
Machine/Language - UNI VAC 1108, EXEC 2 system/ FORTRAN V 

Purpose 

To reverse values of timing indices K and L, to update values for cycling 
fluid and component temperatures. 

Common Block Reference/ Input-Output Variable 

Block Name Input Output 

Block Common K,L K,L 

No functional flowchart necessary 
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Subroutine FLOPWR 


Identification 

Name - FLOPWR 

Author/Company - T. DeLuna/MDTSCO 

Machine/Language - UNIVAC llOSj EXEC 2 system/ FORTRAN V 

Purpose 

To compute pump effieiency shaft horsepower and case drain flowrate. 

Also converts units on flowrate from gal /min to Ibm-BTU/hr-lbm-^R considering 
a constant specific heat and density. 

Support routine 

FUNC - Function subprogram which outputs value of polynominial curve fit 
evaluated at a given X. 

Argument List Definition 
I - System no. 

N - Node number counter - used to differentiate between IdenticaT nodes 
on each system. 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

Blank Common F(N+4,K) C(N+I,3) ^ 1=4,6 

HYD IPDO, ISPD, IFLAG POWER 

TFLW 

PRESR PDRP 

Local Variable Definition 

^ COEFl thru C0EF5 are used to calculate pump efficiency from total 
system flowrate 
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c C0EF6 thru G0EF8 are used to calculate case drain flowrate from total 


system flowrate 



Name 

T)pe 

Units 

Description 

CDFLW 

R 

gal /min 

Case drain flowrate at current 
temperature 

CDH 

R 

gal /min 

Case drain flowrate at 240° - 
pressurized 

CDL 

R 

gal /min 

Case drain flowrate at 105° - 
pressurized 

COEFl 

R 


Coeff. for pressurized mode, 100% 
speed TFLW - 10 gpm 

C0EF2 

R 


Coeff for pressurized mode, 100% speed 
10 gpm < TFLVl - 70 gpm 

C0EF3 

R 


Coeff. for pressurized mode, 110% speed 
TFLW ^ 10 gpm. 

C0EF4 

R 


Coeff. for pressurized mode, 110% speed 
10 gpm < TFLW - 70 gpm. 

C0EF5 

R 


Coeff. for depressurized mode 

C0EF6 

R 


Coeff for depressurized mode 

C0EF7 

R 


Coeff for pressurized mode, 105°F 
fluid 

C0EF8 

R 


Coeff for pressurized mode, 240°F fluid 

ICNFIG 

I 


Operating configuration 3=PreSi 2=Depress 
l=off 


I 


Operating speed flag, 1=100%, 2=110% 

PEFF 

R 


Pump Efficiency 

Q 

R 

gal /mi n 

Total system flowrate 
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FIGURE 6-3 FUNCTIONAL FLOWCHART FOR FLOPWR 
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Subroutine FUEL 


Identification 

Name - FUEL 

Author/Company - T. DeLuna/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 system/ FORTRAN V 

Purpose 

To determine accumulated fuel and energy consumed, fuel remaining and 
prepare accumulated fuel usage values for summary table. 

Argument List Definition 

TOTFUL - total fuel loaded or total usable fuel depending on form of 
fuel plot required (defined in MAIN) 

P2 - ambient air pressure 

Common Block Reference/Input-Qutput Variable" 


Block Name 


Inj3ut 

Output 

B1 ank Common 


• TIME, BELT 

C(I,J), 1=275,277, J=17,19 

TYME 


TIMSUM 

SUMARY(I,J), 1=5,7, J=l,3 

HYD 


POWER, ISPD 


Local Variable 

Defini 

itions 


Name 

Type 

Units . 

Description 

BAND 

R 


Value for creating band around time 
value so that summary table values 
will only be computed once. 

ENERGY 

R 

hp-hrs 

Energy consumed on current comp cycl 

FRATEl 

R 

Ibm/hr 

Fuel usage rate at sea level 

FRATE2 

R 

Tbm/hr 

Fuel usage rate in space 

FURATE 

R 

Ibm/hr 

Fuel usage rate at current altitude 

M 

I 


Operating speed flag, T-100^, 2=110^ 

PU 

R 

Ibm : 

FueT consumed on current comp cycle 


R 

hp 

Shaft horsepower for current system 
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FIGURE 6-4 FUNCTIONAL FLOWCHART OF FUEL 










Function Subprogram FUNC 
Identification 


Name - FUHC 

Author/Company - C. Avis/LEC 

Machine/Language - UNIVAC 1108, EXEC 2 system/ FORTRAN V 

Purpose 

To output value of a polynomial current fit at a given X. 

Argument List Definition 

E - array name for coefficients being used 

X - variable at v/hich to evaluate the polynomial 

FUNC - the value of the polynomial at X. 

No functional flowchart necessary 


Subroutine HVOACT 


Identification 

Name *• MYDACT 

Author /Comp any >- T. DeLuna/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 system/FORTRAN V 


Purpose 

To build the arrays of actuators assigned to each system for specified 
system configuration and to compute the resultant total thermal capacitance 
and heat load on each system. 

COMMON Block Reference/ Input-Output Variables 

Block Name Input 

Blank Common GfX ,1 ) , X~1 ,43, 

C(X,4) X=1 ,43 

ACT NACT, FEW 

HYD IPDO, LMNTRY, IFIAO 

PRESR PDRP 


Output 

IDUM(I) 1-11,13 
NHYD, NHYOUT, 


Local Variable Definitions 
Name Type Units 

ICNFIG I 

ISYS I 

ORIGINAL PAGE IS 
^ OF POOR QUALITY 

OK I 

JL; ■ 

LM I 


Description 

Operating, configuration, S-pressurized 
2=depressurized, T-off 

System number found in loss management 
matrix. Final value is system that a 
particular actuator is on for current 
comp cycle. 

Index used for each actuator. 

Position of actuator in actuator array 
for system just assigned to 

Total number of actuators on each system 

Column of loss management matrix being 
checked 
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Name Type Units 

LMC I 

NOD I 


Description 

Operating mode of column of matrix 
being directed 

Actuator number on sys I 



I 1 1 j / 

FIGURE 6-5 FUNCTIONAL FLOWCHART OF HYUACT 



HYDACT 
1 of 2 


INITIALIZE COUNTER, JK, OF 
ACTUATORS AT ZERO 


DO I « 1 , NTURBN 


INITIALIZE COUNTER OF ACTUATORS FOR 
SYSTEM I AND ZERO ARRAY OF ACTUATOR INLET 
AND OUTLET NODES ON SYSTEM I 


DO J « 1 , NACT 


IS. 

ANY SYSTEM' 
PRESSURIZED? 

"(CHECK PRIMARY, 1ST AND END 
STANDBY RESPECTIVELY) 

LMC > 3 


NO 

Is' 

"ANY SYSTEM 
DEPRESSURIZED? 

"(CHECK PRIMARY, TST AND- 2NI^'< 
STANDBYS RESPECTIVELY) 

2 < LMC < 3 


NO 

ASSIGN ACTUATOR ~TO ITS PRIMARY 
SYSTEM. ISYS = LMMTRX (J, 1) 


YES 


ASSIGN ACTUATOR 
TO FIRST PRESSURIZED 
SYSTEM ENCOUNTERED 
AND ADD 1 TO NUMBER 
OF ACTUATORS ON THAT 
SYSTEM 



ASSIGN ACTUATOR TO 


FIRST DEPRESSURIZED 

YES 

SYSTEM ENCOUNTERED 


ADD 1 TO NUMBER OF 


ACTUATORS ON THAT 


SYSTEM 


ASSIGN ACTUATOR NODE A POSITION (JK) 

IN THE ACTUATOR ARRAY FOR THE SYSTEM TO 
WHICH ACTUATOR WAS ASSIGNED 


L 


ASSIGN INLET NODE OF ACTUATOR J TO 
POSITION OF INLET NODE ARRAY AND OUTLET 
NODE TO POSITION OF outlet NODE ARRAY 

nr 
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DO I = 1, NTURBN 


RECALL TOTAL NUMBER OF ACTUATORS, JL, 
ON SYSTEM I . 


n 


IIYOACT 
2 of 2 


ZERO VALUES FOR THERiWL CAPACITANCE AND 
HEAT LOAD OF THE HYDRAULIC SYSTEM I 
CO MPUTED LAST CYCLE. 

DCTF.RMINE ACTUATOR INLET NODE, NOD, 
CORRESPONDING TO ND^^ POSITION IN ACTUATOR 
ARRAY. SUM THERMAL CAPACITANCE OF HYDRAULIC 
SYSTEM I. 

C(X, 1) = C(X, 1) + C(NOD, 1) 


CALCULATE HEAT LOAD OF ACTUATOR, NOD, 
C(NOD, 4) » FLW(NOD) * PRDP(ICNFIG) * 
COtiVERSION FACTOR 


I 



^ 

DETERMINE PRESSURE DROP, PDRP, FOR SYSTEM I 
IN ITS PRESENT CONFIGURATION, ICNFIG. 

J 

— ^ 

L 



P 1 

{ 

SUM HEAT LOAD ON HYDRAULIC SYSTEM I 

C(x, 4) = C(x, 4) 

+ C(NOD, 4) 


CONVERT ACTUATOR FLOWRATE (GPM) TO WCp 
(lbh-btu/hr-.lbm-°r) assuming constant 

DENSITY AND SPECIFIC HEAT 




I f 


.J 


RETURN ) 
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Subroutine HYDFLD 


Identjf 1 cation 

Name -• HYDFLD 

Author/Company - T* DeLuna/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 system/FORTRAN V 

Purpose 

To compute specific heat and density of the hydraulic fluid and the heat 
transfer coefficient for the hydraulic heat exchanger. 

Support Routine 

FUNC - outputs value of a polynomial curve fit at a given X. 

Argument List Definition 
I “ System number 

N - Node number counter - used to differentiate between identical nodes 
on each system 

Common Block Reference/Input-Qutput Variables 

Block Name Input Output 

Blank Common F(X,K) ;K,C(X,3) C(X,2) 

PRESR SPH, DENS 

Local Variable Definitions 

Name Type Units Descripti on 

CPCOEF R Coeff. for calculating specific heat 

of hydraul ic fluid 

RHOCOF R Coeff for calcuTating density of 

hydraulic fluid 

TEMP R °R Fluid temporature 

No functionaT flowchart necessary. 


82 



Function Subprogram ICNVRT 
Identification 
Name - ICNVRT 

Author/Company - FEAR/TRW 

Machine/Language - UNIVAL 1108, EXEC 2 system/FORTRAN V 



To convert an integer number to hollerith characters so that they can be 
included in the plot title. 

Argument List Definition 

II - Node number of node being plotted. 

Local Variable Definition 

Name Type Uni ts Description 

IIA I , Digit holding hundredths place of 

node no. 

IIIO I Digit holding times place of node no 

III I Digit holding units place of node no 

No Functional flov^chart Necessary 


Subroutine LILOAD (ALT model only) 

Ident if j cation 

Name - LILOAD 


Author/ Company - J, L. Walker/MDTSCO 
Machine/Language - UNIVAC 1108, EXEC 2 sys tern/ FORTRAN V 


Purpose 


To read in Tine data and construct actuator-time matrix. 



LINES - LINUM, LDGF, KNODE, LTH, 

IBI6, SPACE, NODLIN, NLCNT 
SHAPE, EMISS 

Local Variable Definition 


Name 

Type 

Units 

Description 

LINODE 

I 


Array of actuator nodes serviced by 
line, LLNUM 

LLNUM 

I 


Line number 

LNCNT 

I 


Index for LINODE array 

LN 

I 


Actuator node in LNCNT 
of LINODE array 

NLCNT 

I 


Counter for number of lines servicing 
a particular actuator 

NL 

I 


Column number in actuator-line 
matrix of the line index number 



I-IGURE 6-6 FUNCTIONAL FLOWCHART FOR LILOAD LILOAD 
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Subroutine LINFLO (ALT model only) 

Identification 

Name - LINFLO 

Author/ Company - 0. L. Walker/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 system/FORTRAN V • 

Purpose 

To compute the flowrate in each of the hydraulic Tines, 

Argument List Definition 
IS - System number 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

Blank Common IDUM 

.ACT NHYD,FLW 

LINES ldgf,linum;nlcnt FLOWL 

NODLIN 

Local Variable Definition 

Name Type Units Description 

INTGl I First two digits of line number 

INTG2 I First digit times 10 

INTG3 I 2nd digit of line number.. Line is 

pressure line if off, return if even. 

KEY! I - System flag for pressure lines 

KEY2 I System flag for return lines 

OK I Number of actuators on system IS 

LLL I Number of lines servicing actuator NN 

NN 1 Actuator node on system IS 
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FIGURE 6t7 functional FLOWCHART FOR LINFLO 








Subroutine LOOP 


Identification 

Name - LOOP 

Author/Company - FEAR/TRW 

Machine/Language’ - UNIVAC 1108, EXEC 2 system/FORTRAN V 
Purpose 

To define starting node of thermal loop with most recent fluid temperatu 
Argument List Definition 
N “ node to be updated 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

Blank Common F(N,K) F(N,L) 

No Functional Flowchart Necessary 


Subroutine LUBOIL 

Identification 

Name - LUBOIL 

Author/Company - T. DeLuna/MDTSCO 

Machine/Language- UNIVAC 1108, EXEC 2 system/FORTRAN V 

Purpose 

To compute specific heat and density of the lubrication oil, the flowrate, 
WCp, through the gearbox assuming constant flowrate in gal /min and the heat 
transfer coefficient of the lube oil heat exchanger. 

Argument List Definition 
I - System number 

N - Mode number counter - used to differentiate between identical nodes 
for each system. 

Common Block Reference/Input-Output Variables 

Block Name Input Output 


Blank 

Common 

K, F(N+r,K) 

C(N+2,2), C(N+1,3), 

C(N+1 ,4) 

HYD 


ISPD, POWER 



Local 

Variable Definitions 



Name 

Type 

Units 

Description 


DENSE 

R 

Ib/ft^ 

Density of Tube oil 


SPHL 

n 

BTU/lb °R 

Specific heat of lube oil 


TBAR . 

R 

°R 

Average of temperature across 

gearbox 


FIGURE 6 - 8 . FUNCTIONAL FLOWCHART OF LUBOIL 



LUBOIL 


COMPUTE THE TEMPERATURE AVERAGE ACROSS 
GEARBOX, SPECIFIC HEAT AND DENSITY OF LUBE 
OIL TBAR, SPHL, DENSL 


UO% 

SPD = 2? 


CALCULATE HEAT REJECTION RATE AND LUBE 
OIL FLOWRATE FOR 100% SPEED 



CALCULATE HEAT REJECTION RATE AND LUBE 
OIL FLOWRATE FOR 110% SPEED 


CONVERT TBAR TO °F 


COMPUTE HEAT TRANSFER .COEFFICIENT, 
C(X, 2), FOR LUBE OIL HEAT EXCHANGER 



DPTURN 








Subroutine MIX 


Identification 

Name - MIX 

Author/Company - FEAR/TRW 

Machine/Language - UNIVAC 1108/EXEC 2 system/FORTRAN V 
Purposes 

To determine resultant fluid fVov/rate, WCp, and temperature when mixing 
fluid flow from two or more branches. 

Argument List Definition 

N - Node resulting from mix 

NODES “ Number of nodes to mix into N 

INDEX - Array of nodes to be mixed 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

Blank Common F(INDCX(I) ,6) F(N,L), C(N,3) 

C(INDEX{I),3) 

Local Variable Definitions 

Name Type Units Description 

SUMl R BTU/hr Sum of the flowrate in each branch 

times its fluid temperature 

ZUM R 1 bm-BTU/hr-l bm-°R Sum of the f 1 owrate in each branch 

No Functional Flowchart Necessary 

Note: The DIMENSION of INDEX must be defined in MAIN. The values 

for INDEX and the flowrate at each node in INDEX must also be 
supplied. 

■ ' ^92 . 



* Subroutine MOD 


Identification 

Name - MOD 

Author/Company - FEAR/TRW, modified by J. L. Walker and T. DeLuna/MDTSCO 
Machine/Language - UNIVAC 1108, EXEC 2 system, FORTRAN V . 

Purpose 

To solve equations for proportioning flow split between two branches in 
response to prescribed temperature, location and proportional gains. 

Argument Li st Defi nition 

N -■ Node to split 

1 Split N into I , Flow XM 

J - Split N into 0, Flow 1-XM 

M - Control node 

TC - Control temperature 

R - Desired gain, XM change per degree 

MAX - Max value of XM 

MIN - Min value of XM 

Common Block Reference/Input-Output Variables 

Block Name I nput Output 

Blank Common F(H,L), F C{I,3), C(0,3) 

C(N,3) F(I,L), F(J,L) 

Local Vari abl e Def ini ti on 

Name Type Units Description 

XM R Fracti on of flowrate at N to assign to I 

^ R Max value of XM minus a bias 

HH R Min value of XM plus a bias 

R 93 Adjustment to XM for desired gain 


FOD 


FIGURE 6-9 FUNCTIONAL FLOWCHART FOR MOD . 



COMPUTE RATIO OF TEMPERATURES AND 
ADJUST RATIO FOR DESIRED GAIN RESULTING 
IN XM, FRACTION OF SPLIT NODE FLOWRATE 
TO USE FOR COMPUTING FLOWRATE AT I. 


CALCULATE MAXIMUM AND MINIMUM VALUES 
FOR FLOWRATE CONSIDERING A BIAS OF 
.005 LB/HR. 

















Subroutine Pass 
Identification 
Marne ' Pass 

Author/ Company - FEAR/TRW. 

Machine/Language - UNIVAC 1108, EXEC 2 system/ FORTRAN V 

Purpose 

To solve equations for heat transfer from a passive component 

Argument List Definition 

II - Node number of passive component. 

See FEAR USER'S GUIDE for further documentation 
No Functional FlovKhart 



Subroutine PLATE 

Identification * 

Name - PLATE (PLATO, GPLT(ECLSS only)) modifications for PLATO 

by T, DeLuna/MDTSCO 
Author/Company - FEAR/TRW 

Machine/Language - UNIVAC 1108, EXEC 2 system/ FORTRAN V 
Purpose 

To determine diffusion node heating (PLATE) or to determine hydraulic and 
diffusion node heating. (PLATO) 

Argument List Definition 
M - Inlet node of component 

N - Outlet Node of component • 

Common Block Reference/Input-Output Variables 


B1 ock Name 


Input 


Output 

Blank Common 

C(M,3), 

C(N,4), 

F(M,L) 

F{N,L), C(N,3) 


C(M,2), 

DELT 


C(M,1) 

P{M,L) 


Local Variable Definitions 


Name 

Type 

Uni ts ■ 

Description 

CMTRM3 

R 

BTU/hr-°R 

Thermal capacitance 

PHLHK 

R 

OR 

Sum of the present and past values of 
component temperature 

I CUP 

I 


Flag to signal that PLATO has been called. 

SAVEQ 

R 

BTU/hr 

Heat load of ini et- saved to be retrieved 
later 

SAVET 

R 

OR 

Fluid temp of inlet-saved to be retrieved 
later. , 

TOFML 

R 

°R 

Twice the fluid temperature of the inlet 

UAWCP 

R 


Ratio of the heat transfer coefficient 
of the inlet to the mass flowrate of the 
inlet. 
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FIGURE 6-10 FUNCTIONAL FLOWCHART OF PLATE 


(P^ 


(putT) 


■ DEFINE OUTLET FLQWRATE, EQUAL TO INLET 

i FLOWRATE 

1 




II DEFINE OUTLET FLOWRATE EQUAL TO INLET 
FLOWRATE. 

p SAVE INLET FLUID TEMPERATURE AND HEAT 
LOAD. SET ICUP = 1 


REDEFINE INLET FLUID TEMPERATURE AND HEAT 
LOAD TO PUT HALF OF THE WORK HEAT INTO 
THE FLUID. 


COMPUTE COMPONENT TEMPERATURE AND OUT- 
LET FLUID TEMPERATURE 



YES 


RESET INLET FLUID TEMPERATURE AND HEAT 
LOAD TO ORIGINAL VALUES. 

UPDATE OUTLET FLUID TEMPERATURE TO 
INCLUDE HALF OF THE WORK HEAT 




(^^uriT) 


RETURN 











Subroutine PLATEC 
Identification 

Name - PLATEC (entry PLATOC, GPLTC(ECLSS only)) 

A uthor/ Company ~ FEAR/TRW 

Machine/Language - Univac 1108, EXEC 2 system/ FORT RAN V 
Purpose 

To determine diffusion node heating for components thermally coupled 
to other components or boundary nodes (pLATEC)j or to determine hydraulic 
and diffusion node heating for components thermally coupled to other 
components or boundary nodes .(PLATOC) 

Supporting Subroutine 

PLATE (PLATO) - Computes the heating after PLATEC (PLATOC) has factored 
the thermal coupling into the heat load. 

Argument List Definition 
II - Inlet node of component 
JJ "Outlet node of component. 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

Blank Common C(II,4), P(II,K), P(N0VJ,K^ C(II,4) 

GLOB KEEPJBIG,VAL 

LEEP, OBIG, RVAL . 

Local Variable Definitions 

Name Type Units Description 

AA R BTU/hr . Variable for saving heat load on 

component 
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Name 

ICUP 

NSTRT 

NTRY 

SUM 

TEMP 


Type Units 

I 
I 

I 

R 

R ®R 


Description 

Flag to signal that PLATOC has been called 

Firsc position in IBIG array that contains 
node that node II is coupled to 

Last position in IBIG array that contains 
node that node II is coupled to 

Sum of the products of coupling value 
and temperature difference for each node 
that II is coupled to 

Temperature difference between 
node II and node which II is coupled to 
for conduction/convection coupling. 
Difference of temperature values to the 
4th power for node II and each of the 
nodes which II is coupled to for radia- 
tion coupling 


Note: Coupling values for node II to structure nodes or other components 

should be input through subroutine START. See Sec. 4.1.2 Node Coupling 
Data and Appendix A.. I. 




FIGURE 6-n FUNCTIONAL FLOWCHART FOR PLATEC 

rPLATEc) 


SAVE INLET HEAT LOAD 


SAVE INLET HEAT LOAD 
SET ICUP = 1 


DETERMINE POSITIONS IN ARRAY OF COUPLING 
NODES (IBIG) , IN WHICH' NODE. NUMBERS 
FOR NODES COUPLED TO NODE II FOR CON- 
DUCTION/CONVECTION COUPLING ARE STORED 


DO I « NSTRT, NTRY 















lOZ 










Subroutine PLOQT ' 


Identification 

Name - PLOOT 

Author/ Comp any - FEAR/TRW, modified by T. DeLuna/MDTSCO 

Machine/Language - Univac 1108, EXEC 2 system/ FORTRAN V 
Purpos e 

To put data for plotting on high speed drum for each plot defined by the 
plot input cards. (See Sec. 5.2 and Appendix A. T) 

Supporting Routine 

RWRITE- Subroutine in RANDIO utility routines for accessing high speed drum. 

Arguments defined in local variable definitions 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

ALTD ALT 

ARRAY G(MUG,1), 1=1, 2, 3, 7 

BLANK COMMON TIME, F(MUG,L) 

P(MUG,L), C(MUG, 1)1=1, 19 

COMEVP : WATLFT 

PSST IPLT, JPLT, NPLTS NPLPTSJWRADR 

Local Variable Definitions 

Name Type Units Description 

I ST AT I Status word for utility package 

IWRADR I Address on drum at which to write data 

NIX I 

NNPLTS I Number of pi ots pi us X-parameter 

NUG I Plot type 

MUG . I Node number being plotted 


Units 


Name 

PLANET 

XX 


Iye_e 

R 

R 


Array containing value of each plot 
parameter at this time point 

Value to be placed in PLANET array 


Note: The PLOOT routine must be called prior to the call to PRINT or 
SELECT so that the value of TIME will agree with the data being plotted. 


FIGURE 6-1? 

! FUNCTIONAL FLOWCHART FOR PLOOT 
PLOOTJ 


INITIALIZE COUNTER FOR NUMBER OF PLOTS (NIX) 
0 ASSIGN VALUE FOR TIME AS FIRST WORD 
OF RECORD ON DRUM 


e INCREMENT COUNTER FOR NUMBER OF PLOTS 
(NIX) 

G DETERMINE NODE NUMBER BEING PLOTTED, 
MUG, AND PLOT TYPE (NUG) 


GO TO NUG 
(COMPUTED GO TO) 


XX = FLUID TEMP (F(MUG, 


XX = COMPONENT TEMP (P(MUG, L)) 


XX = FLOWRATE (C(HUG, 3)) 


NUG - 5 


XX = WATER REMAINING (WATLFT) 


6 THRU 16 I XX = ECLSS PARAMETERS 

(NOT APPLICABLE TO APU/HYDRAULICS) 


i 


















IT 
' 2 


NUG = 17 


NUG = 23 


XX = ACCUM FUEL USED (C(MUG, 17)) 


XX = ACCUM ENERGY (C(HUG, 18)) 


XX = FUEL REMAINING (C(MUG, 19)) 


XX = AMBIENT PRESSURE (G(MUG, 2)) 


XX = BOILER PRESSURE (G{MU6, 1) 


XX = MISCELLANEOUS {G{MUG, 3)) 


XX = MISCELLANEOUS (G(MUG, 7)) 







ASSIGN XX TO (NIX+1)^^ POSITION OF 
PLOTTING DATA ARRAY (PLANET) 


^ IS THERE 
MORE PLOT DATA 
TO PUT ON DRUM FOR 
-^THIS TIME STEP? . 


CALL RWRITE 


WRITE DATA IN PLANET ARRAY 0 
DRUM 

N HIGH SPEED 


INCREMENT WRITING ADDRESS ON DRUM 





















Subroutine PRINT 
Identification 

Name - PRINT (SELECT) 

Author/Company - FEAR/TRVI, modified by T. DeLuna/MDTSCO 

Machine/Language - Univac 1108, EXEC 2 system/ FORTRAN V , 

Purpose 

To printout node data of interest at specific time intervals. 

Argument List Definition 

Note; There are no arguments in the call to PRINT. The following 

arguments are in the call to the entry point (SELECT) 

NP - Total number of nodes to print out 

NMP - Number of nodes to list as component nodes (less than NP) 

IPARI ~ Array of node numbers to be printed 

10 - Flag to signal that SELECT has been called. Must not equal any 

node number in INODES array. 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

ACT NHYD, NHYOUT 

ALT BH20, BH20F, lALT 

ARRAY FLAG, G(l,7)I=l,8 

G(I,J)J=V, 2, 3, 8, 9)1=102,152, 202 

. ITTER ■ 

BLANK COMMON L,DELT,TiME,TSTdp,NNGDES TIME 

P(300,L) , F(300,L) , IDUM 

C(300,0)V 0=1,2,3,4,17,18,20 

COMEVP IWAT, NWAT, WAT 

PRT AERROR, ANAME, IGNT, IPRNT ICNT 
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Local Variable Des.cription 


Name 

IHR 

IMIN 

SEC 

IP 

=2 if SELECT called 

ISKP I Flag to restrict print of certain 

data on first call to the subroutine 

lEND I Flag to designate amount of C array 

to print out. =4 for APU/Hydraulics 

JM I Total number of actuators on a system 

NAD I Array of inlet nodes on a system 

NADE 1 Array of outlet nodes on a system 

NMPl I ' Start of loop for printing node number 

connected v/ith fuel used. 

NMP3 I ■ End of loop for printing node numbers 

connected with fuel used. 

VMP4 I Start of loop for printing node number 

connected with energy used 

NMP6 I End of loop for printing node numbers 

connected with energy used. 

NUP I Counter used for incrementing TIME 



Units 

\ 


Descript 

I 

] 

hrs j 



I i ' 

min. j 

1 Current 

mission time 

R 

sec. 



I 


Flag =1 

if PRINT called 
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/ PRINTOUT LIST OF INLET AND 
OUTLET NODES FOR EACH HYDRAULIC 
WAn nadf / 






INCREMENT COi'iPUTAT ION 
CYCLE COUNTER, NUP, 
AND UPDATE TIME 







Subroutine QBAL 

Identification • 

Name - QBAL 

Author/Company - T. DeLuna/MDTSCO 
Machine/Language - UNIVAC 11 08/EXEC 2 system/FORTRAN V 
Purpose 

To perform a heat balance for accuracy assessment and ey'ror detection by 

comparing total system heat input to total heat dissipation. 

Common Block Reference/Input-Output Variables 

Block Name Input Output 

ACT NACT . 

ARRAY UNIT, 6(X,4), G(X,5) G(I,7),I=1,8 

BLANK COMMON C(X,1 ) , C(X ,4) , P(X,6) C{l,2), 1=250,262 

DELT 

EXTRA ICOUP 

GLOB KEEP, IBIG, VAL 

LEEP, OBIG, RVAL 

Local Variable Definitions 

Name Type Units Description 

DUMMl R BTU Total heat stored in component capacitance 

by one system counting boiler capacitance 
■ twice. ■■ 

DUMM2 R BTU Heat stored in capacitance of boiler 

NSTRT I First structure node that node (N+Nl) is 

coupled to 

NTRY I Last structure node that node (N+Nl) is 

coupled to 

SUM R BTU/hr Total BTU/hr out via conduction/convection 

for node (N+Nl) for one comp cycle 


Name 

Type 

Units 

Description 

SUM 

R 

BTU/hr 

Total BTU/hr out via conduction/convection 
for node (N+N1) for one comp cycle 

SUMR 

R 

BTU/hr 

Total BTU/hr out via radiation for node 

(nh-n1) 

TCCUP 

R 

BTU/hr 

Total BTU/hr out via coupling to structure 
for one system for one comp cycle 

TOTCUP 

R 

BTU/hr 

Total BTU/hr out via coupling to structure 
for all three systems for one comp cycle 

NT 

I 


Index for looping through major components 
on each system, 


FIGURE 6-14 FUNCTIONAL FLOWCHARl FOR QBAL 
C QBAL ^ 


ZERO STORAGE LOCATION FOR HEAT 
STORED IN CAPACITANCE 
,G(5, 7) =0. 


DO M = 1 , NACT 


SUM HEAT STORED IN CAPACITANCE OF 
ACTUATORS 


SUM APU HEAT FOR SYSTEM I AND FOR 
TOTAL OF ALL THREE SYSTEMS G(I, 7) 


SUM TURBINE HEAT IN FROM COUPLING ONLY 
0(2.7) 




ADD APU HEAT AND TURBINE HEAT FOR 
TOTAL HEAT INTO SYSTEM 
G{3,.7) = G (1, 7) + G(2, 7) 


SUM HEAT OUT VIA WATER BOILOFF FOR 
SYSTEM I AND FOR' TOTAL OF ALL THREE 
SYSTEMS. G(4. 7) 












QBAL 
2 of 3 


ZERO TEMPORARY STORAGE LOCATION FOR 
HEAT STORED IN CAPACITANCE OF MAJOR 
COMPONENTS. DUMMl =0. 


i, . ■ 

DO Nl, = 1, 14 

r 

SUM HEAT STORED 
MAJOR COMPONENTS 
SYSTEM I, DUMMl 

IN CAPACITANCE OF 
AROUND LOOP OF 

L — ^ — * — 

1 

— — ^ 


COMPUTE HEAT STORED IN CAPACITANCE OF 
WATER BOILER, DUMM2, AND SUBTRACT IT FROM 
DUMM1 SINCE DUMMl ADDS THE WATER BOILER 
HEAT TWICE. 

ADD THIS TO HEAT STORED IN CAPACITANCE 
OF ACTUATORS 

G{5, 7) = G(5, 7) + DUMMl - DUMM2 


DO N1 == 1 , 12 
— — — 

r 

DETERMINE POSITIONS IN COUPLING ARRAY 
WHICH CONTAIN NODE NUMBERS AND COUPLING 
VALUES FOR NODE (N + Nl) 


— — I C 


DO J = NSTRT, NTRY 


SUM HEAT LOST TO STRUCTURE DUE TO ; 

CONDUCTION/CONVECTION COUPLING BETWEEN ' 
NODE (N + NT) AND NODE IN POSITION J 


r. 


L' 

J : j 









SUM HEAT LOST TO STPsUCTURE DUE TO 
RADIATION COUPLING BETWEEN NODE (N + N1 ) 
AND NODE IN POSITION M 


e SUM TOTAL HEAT LOST TO STRUCTURE VIA 
CONDUCTANCE FOR SYSTEM 1 
0 SUM LINE LOSS AND COMPONENT LOSS FOR 
SYSTEM I 

0 SUM TOTAL HEAT LOST TO STRUCTURE 
FOR ALL THREE SYSTEMS G (6, 7 ) 


SUM TOTAL HEAT OUT THROUGH WATER 

CAPACITANCE AND CONDUCTANCE 

G(7, 7) = G(4, 7) + G(5, 7) + G(6, 7) 






Subroutine RSTART (OFT model only) 

Identification 

Name -- RSTART 

Author/Company - T. DeLuna/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 system/FORTRAN V 

Purpose 

To provide the capabil ity for reinitializing the component and fluid 
temperature after a particular mission analysis has been started. A flag 
in the main program determines whether a new set of node data cards is to be 
read in or the temperatures are to be set to a constant temperature. 

Argument List Definition 

ICHECK - Flag set so that routine will only be called once 

Common Block Reference/Input ~ Output Variables 

Black Name Input Output 

ARRAY TINIT 

BLANK COMMON IDUM, NNODES P(X,1), P(X,2) 

F(X,1), F(X,2) 

TYME AMSNTM 

Local Variable Definition 

Name Type Units Description 

IRST I Flag for type of temperature . 

. reinitialization 

1 - define as constant 

2 = read in new values 

Equivalenced to IDUM( 14), Defined in MAIN2 
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FIGURE 6-15 FUNCTIONAL FLOWCHART FOR RSTART 

RSTART 
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Subroutine SCAL 
Identification 
Name - SCAL 

Author/Conipany - FEAR/TRW 

Machine/Languate “ UNIVAC 1108, EXEC 2 system/FORTRAN V 
Purpose 

To provide scaling for the x or y-axes. Support routine for DRAW 
Argument List Definition 

XMAX - Maximum value of parameter being scaled (input) 

XiMIN - Minimum value of parameter being scaled (input) 

XI - Axis length desired (input) 

DX - Change in parameter per inch (output) 

XO ~ Starting value of param.eter (output) 

XE - Error value used in iterating for best scalina. 

Local Variable Definitions 

This routine consists of a mathematical process which uses the maximum 
and minimum values along with a desired length and iterates for a 
solution for the change of the parameter per inch which will be some power 
of 10 times 1,2 or 5 and result in the closest possible to the desired 
length. The local variables. A, B, C, D, E, and W are merely terms in 
the equations used in this process. . 

No Functional Flowchart Necessary. 


Subroutine SPRAY (OFT model only) 

Identification 

Name - SPRAY 

Author/Company - T. DeLuna/MDTSCO 

Machine/Language - UNIVAC 1108/EXEC 2 system/FORTRAN V 

Purpose 

To determine the amount of water used to keep the hydraulic fluid and 
lubrication oil at or under their control temperatures. This subroutine 
was written from preliminary information and should be rewritten as soon 
as spray boiler design data becomes available. 

Argument List Definitions 

Ml - Inlet node of lube oil heat exchanger 

M2 - Inlet node of hydraulic fluid heat exchanger 

Mil - Outlet node of lube oil heat exchanger 

M22 - Outlet node of hydraul ic fluid haat exchanger 

ISPRAY *“ Flag set to show the SPRAY routine has been called 


Common Block Re 

jference/Input-Output Variables 


Block Name 

Input 

Output 

Blank Common 

P(M1 ,K), BELT 

F(I,K), I=M11,M22 


F(I,K), I=M1 ,H2 

C(I,3), I=M11, M22 


C(lv3), I=M1 ,M2 


COMEVP 

IWAT, WAT 

WAT 
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Local Variable Definitions 


Name 

lyfie 

Units 

Description 

BTUH 

R 

BTU/hr 

Heat loss rate used to bring hydraulic 
fluid down to control temperature 

BTUL 

R 

BTU/hr 

Heat loss rate used to bring lube oil 
dov‘/n to control temperature 

COEF 

R 


Coefficients for computing heat of 
vaporization at current temperature 

DELW 

R 

1 bm 

Water used to bring fluid to control temp 

DIFFH 

R 

°R 

Temperature diff between hydraulic fluid 
and control temp. 

DIFFL 

R 

OR 

Temperature diff between Tube oil and 
control temp. 

H 

R 


Heat of vaporization 

TCH 

R 

°R 

Control temp for hydraulic fluid 

TCL 

R 

°R 

Control temp for lube oil 


FIGURE 6-16 FUNCTIONAL FLOWCHART FOR SPRAY 












B 


S 

2 










Subroutine START 


Identification 


Name - START 

AJthor/ Comp any - FEAR/TRW vn'th major modifications by T. DeLuna/MDTSCO, 
Machine/Language - UNIVAC 1108, EXEC 2 system/FORTRAN V 
Purpose 

To initialize data, read in block of input cards, consolidate array of 
thermal coupling values, and define print frequency 
Supporting Subroutines 

CLOCK - Utility routine which outputs time of day 

PRINT “ Increment print frequency counter, Initialize TIME incremenenting 
counter. 

RINIT - RAND 10 utility routine for acquiring starting address on high speed drum 
Common Block Reference/Input-Output Variables . 

Block Name 
ACT 

Blank Common 
Extra 
Glob 
HYD 
LUMP2 
PRT 
PSST 


NACT 


All 

ICOUP 

All 

IPDO, LMMTRX 

All 

All 

All 

TIMSUM/AMSNTM, FUDGE 
SUMARY(I,0) 1=1,4, 0=1,3 
SUMARY(I,0) 1=11 ,13,14,0-1 ,3 


125 


Local Variable Definitions 


Name 

Iy£e 

Units 

Description 

CLICK 

R 


Argument in call to CLOCK routine. Used 
for greeting printout 

rcoupL 

I 


Flag for restricting addition of heat 
losed through coupling to certain 
components =1 if shoud be considered. 

I ERROR 

I 


Index for reading in error calculation 
titles 

IWORK 

I 


Node number pair for coupling 

IZERO 

I 


Array equivalenced to all of blank common 
for ease in initializing at zero 

JO 

T 

X 


Counter used for assigning each conduction 


coupling node and value a position in 
arrays being created, IBIG, VAL 


Counter used for assigning each radiation 
coupling node and value a position in 
arrays being created, JBIG, RVAL 

Variable used in greeting printout 

Variable from original version-use unknown 

Counter for number of conduction coupling 
values read 

NO I First node of coupling node pair 

NK 1 Second node of coupling node pair 

NODE I Node number on input card and 

subsequent position in blank common array 

values read 


LL I 

LOCK I 

MOREV I 

NCON I 


NSC I 

NSYSUP I 

WORDS R (hollerith words) 

♦ 

WORK R 
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Number of coupling data cards to be read 

Index for reading loss management matrix 

Array of words to choose from i n 
creating greeting. Groeting has no 
bearing on run- ignore 

Array of coupling values read 

(1) - conducti on/convection 

(2) - radiation 


FIGURE 6-17 FUNCTIONAL FLOWCHART FOR START 



START 
1 of 3 


READ IN DATA FROM NEXT THREE DATA 
CARDS: RUN CONTROL, PLOT CONTROL AND 
SUMMARY TABLE CONTROL CARD 


READ IN NODE COUPLING CARDS 



REARRANGE CONDUCTION/CONVECTION COUPLING 
NODES FOR EASE IN RETRIEVING COUPLING 
INFORMATION LATER. CONSTRUCT IBIG AND VAL 
COUPLING ARRAYS. 


NO 



IS THERE 
ANY RADIATION 
COUPLING? 


YES 
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START 
3 of 3 


READ IN AND PRINTOUT SYSTEM 
CONFIGURATION MATRIX, IPDO 


READ IN AND PRINTOUT LOSS MANAGEMENT 
MATRIX, LMMTRX 


■ t ^ 

READ IN CONSTANT LOADING AND RESERVES 

VALUES FOR FUEL AND WATER FOR SUMMARY 

TABLE, SUMARY / 


^ -i ^ 

INITIALIZE K AND L, COMPUTE NUMBER OF 
COMP CYCLES BETWEEN PRINT INTERVALS FOR 
PRINT FREQUENCY COUNTER. 

SET IDUM(8) = 1 _____ 


X : 

CALL PRINT 

INITIALIZE TIME INCREMENTING COUNTER, 
INCREMENT PRINT COUNTER 




SET IDUM(8) = 2 



RETURN 







Subroutine THERMP (ALT model only) 

Identification 

Name - THERMP 

Author/Company - J. L. Wal ker/MDTSCO 

Machine/Language - UNIVAC 1108/EXEC 2 system/FORTRAN V 

Purpose ' 

To determine the heat loss and resultant fluid temperature in the hydraulic 
pressure lines from the pump to the actuators due to conduction convection 
and radiation coupling to vehicle structure and compartment air,- 
Argument list Definition 

IS “ System number • 

N1 - Node number counter - used to differentiate between identical nodes 
on each system 

PAMB - Ambient air pressure 

Common Block Reference/Input-Qutput Variable 

Bl ock Name Input < Output 

ACT NHYD, FLW 

Blank Common IDUM, F(X,L), p(X,L) C(l,4), 1-231, 263 

F(X,L) 

LINES FLOWL, IBIG, KNODE, TEFIPIN, TEfiPOT, QDOTL 

LD6F, LINUM, LTH, 

NLCNT, NODLIN, 

SPACE, TEMPOT 

ICNT, IPRNT 
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PRT 


Units 


Local Variable Definitions 


Name Type 


AREA 

R 

in’’- 

Area of the line segment being solved 

BASE 

R 

BTUyhr-ft^-?F 

Convection coefficient base factor for 
current temp 

ILTH 

I 

in 

Length of line segment to use in line 
solutions 

ID 

I 


Line index of line being solved 

INN 

I 


Number of line segments in line ID 

INTG3 

I 


Second digit in line number 

JK 

I 


Number of actuators on system IS 

KEY! 

I 


Flag to determine if line ID is a 
pressure line for system IS. 

KEY2 

I 


Flag to determine if present line being 
solved is first line downstream of pump. 

K1 

I 


Number of 16ths of an inch in diameter 
of line 

K2 

I 


Structure node coupled to line ID 

LASTID 

I 


Line index for the previous line solved 

LTHEND 

I 

in. 

Line segment shorter than ILTH remaining 
at end of line or length of line shorter 
than ILTH 

NAL 

I 


Number of lines to be solved for actuator NN 

NN 

I 


Actuator inlet node number 

T2 

R 

°R 

Temperature of structure node that line 
ID is coupled to. 

TI 

R 

°R 

Inlet fluid temperature of line segment 

TC 

R 

®R 

Predicted center temperature of line segment 

TO 

R 

°R 

Outlet fluid temperature of line segment 

TEMPZ 

R 

°R’ 

Coefficient computed using boundary 
temperature and temperature at center 
point of line segment to linearize 
radiation coupling 

TFILM 

R 

"R 

Convection film temperature 

TBEFF 

R 

°R 

Effective boundary temperature 

UACOND 

R 

BTU/hr-°R 

Conduction coupling coefficient 

UACONV 

R 

BTU/hr-“R 

L i n ea r 1 z ed c o n v e c ti p n co u pi i n g co ef f i c lent 

UARAD 

R 

BTU/hr-°R 

Linearized radiation coupling coefficient 

UA 

R 

BTU/hr-°R 
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Combined coupling coefficient 


FIGURE 6-18 FUNCTIONAL FLOWCHART FOR THERMP 


THERMP 


t COMPUTE FLAG TO CHECK IF LINES ARE 
PRESSURE OR RETURN LINES 
e RETRIEVE DATA FOR NUMBER OF ACTUATORS, 
JK, ON SYSTEM IS 


DO ND = 1, JK 


DETERMINE ACTUATOR NODE NUMBER, NN, OF 
Nd''^^ ACTUATOR ON SYSTEM IS 


DETERMINE NUMBER OF LINES, NAL, SERVICING 
ACTUATOR, NN 


DO LL = 1, NAL 



Y 

DETERMINE LINE INDEX AND WHETHER LINE IS 
A PRESSURE OR RETURN FOR SYSTEM IS 




DEFINE INLET FLUID TEMPERATURE EQUAL TO 
PUMP OUTLET TEMP IF FIRST LINE TO ACTUATOR, 
OR TO OUTLET TEMP OF LAST LINE SOLVED 
OTHERWISE.. 


DETERMINE AREA AND CONDUCTION COEFFICIENT 
OF ILTH INCH LINE SEGMENT, CONVERT 
FLOWRATE OF LINE ID, AND DETERMINE NUMBER 
OF LINE SEGMENTS, INN, IN LINE ID. 











THERMP 
2 of 3 



INN 
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ACCUMULATE HEAT LOSS RATE IN LINES 


/ PRINT OUT LINE DATA FOR LINE ID 
PRINTING TEMPERATURES IN FAHRENHEIT 


SET FLAGS TO SIGNAL THAT LINE CALCULATIONS 
WERE NOT FOR FIRST LINE IN PATH FROM PUMP 
TO ACTUATOR 


SET ACTUATOR INLET TEMPERATURE EQUAL TO 
OUTLET TEMPERATURE OF LAST LINE IN 
LINE PATH 


^A^ 


3 








Subroutine THERMR (ALT model only) 

Identification 

Name -THERMR 

/Uthor/Conipany - J. L. Wal ker/MDTSCO 

Machine/Language - UNIVAC 1108, EXEC 2 system/ FORTRAN V 

Purpose 

To determine heat loss and resultant fluid temperature in hydraulic return 
lines from the actuators to case drain mix node due to conduction, convection 
and radiation coupling to vehicle structure and compartment air. 

Argument List Definition 
IS - System number 

N1 - Node number counter - used to differentiate between identical nodes 
on each system 
PAMB - Ambient air pressure 
Common Block Reference/ Input-Output Variables 

B1 ock Name Input Output 

ACT NHYD, FLW 

Blank Common IDUM, F, P, DELT, C(l ,4) , 1=251 , 263 

C(I,4) 1=251 ,263^^ ^ 

LINES NODLIN, NLCNT,' LINUM QDOTL 

FLOWL, SPACE, LTK, LDGF 

TEMPOT, KNODEV IBIG 
HYD 

PRESR PDRP 


Local Variable 

Definitions 


Name 

Type 

Units 

Description 

AREA 

R 

in^ 

Area of line segment being solved 

BASE 

R 

BTU/hr-ft^-°R 

Convection coefficient base factor for 
current kmp 

CAPHR 

R 

BTU/mi n 

System capacitance heat soak rate. 

ICNFIG 

I 


Present system configuration 
3=pressurized, 2=depressurized , l^off 

ID 



Line index of line being solved 

ILTH 

I 


Length of line segments to use in line 
solutions 

INN 

I 


Number of line segments in line ID 

INTG3 

I 


Second digit in line number 

OK 

I 


Number of actuators on sys IS 

KEYl 

I 


Flag to determine if line ID is a return 
line or system IS. 

KEY2 

I 


Flag to determine if line ID is first 
line in actuator's return line path 

KEYS 

I 


Flag used in determining total flowrate 
in return lines 

KI 

I 


Number of T6th of an Inch in the line's 
diameter 

K2 

I 


Structure node coupled to line ID. 

LASTID 



Line index for the previous line solved 

LTHEND 

I 

in 

Length of remainder of line after line 
divided into segments of length, ILTH 

NAL 

I 


Number of lines to be solved for actuator, MH 

NN 

I 


Actuator node number 

12 

R 


Temperature of structure node that line 
ID is coupled to. 

TI 

R 

°R 

Inlet fluid temperature 

TC 

R 


Predicted center temperature of line segment 

TO 

R 

°R 

Outlet fluid temperature of line segment 

TEMPZ 

R 

°R 

Coef f i ci ent Gomputed. using boundary 
temperature and temperature at center of 
line segment to linearize radiation coupling 

TFILM 

R 

°R 

Convection film temperature 
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Name 

L^es. 

Units 

Description 

TBEFF 

R 

°R 

Effective boundary temperature 

UACOND 

R 

BTU/hr-°R 

Conduction coupling coefficient 

UACONV 

R 

BTU/hr-°R 

Linearized convection coupling 
coefficient 

UARAD 

R 

BTU/hr-°R 

Linearized radiation coupling coefficient 

UA 

R 

BTU/hr-°R 

Combined coupling coefficient 



FIGURE 6-19 FUNCTIONAL FLOWCHART FOR THERMR 
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THERMR 
2 of 3 

~1 


I 

! 









D 


THERMR 
3 of 3 





ACCUMULATE TOTAL HEAT LOSS RATE, AND 
CALCULATE ACTUATOR COUPLING HEAT LOSS RATE 



1^0 










Subroutine TRANS 


Identification 

Name - ^\ms (GTRANS (ECLSS only)) 

Author/Company - FEAR/TRW 

Machine/Language - UNIVAC 1108, EXEC 2 system/ FORTRAN V 
Purpose 

To transfer flowrate and fluid temperature data from node II to node OJ. 
Argument List Definition 

II - Node with known flowrate and fluid temperature 
OJ - Node to which to transfer data 

Common Block Reference/Input-Output Variables 

B1 ock Name Input Output 

Blank Common ’ F(II,L), C(II,3) F(0J,L), C{00,3) 


No Functional Flowchart Necessary 



Subroutine ZIPIT 



system/FORTRAN V 

temperature arrays and to zero line 



FLACUM, FLOWT* QDOTL 


APPENDIX A. PROGRAM USAGE 


This appendix presents the information necessary to execute TAHAP 
successfully* An overall deck setup, the sequence of the input data 
cards, and the specific data card requirements and the format of those 
cards are listed and described. Differences betvyeen the ALT and OFT 
versions are noted where they occur. 

Deck setup for lAHAP is illustrated in Figure A-1 . The input data deck 
card sequence is summarized in Figure A-2. Data format requirements 
for data cards are summarized in Section A.l and for data tapes in 
Secti on A. 2. 


FIGURE A-1 DECK SETUP FOR TAHAP 


7/8 FIN 


7/8 B PiMD 


r 


7/8 EOF 


f 




INPUT DATA DECK 


7/8 XQT APUHYD 




PROGRAM CHANGE CARDS 


TOC 


'TTII'^ 


IN A 


f 


/~TRW, A 


7/8 XQT CUR 


V^7/8 ASG P= CCPl 


f 


/ 7/8 ASG D= LINE DATA TAPE NO. 
f (ALT MISSION ONLY) . 

/’//s' ASG B=~ MISSION TIMELINE INPUT 
f TAPE NO. 


/ 7/8 ASG A= PCF TAPE NO. 
7/8'rUN V ~ 
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FIGURE A-2 INPUT DATA DECK SEQUENCE 

TAHAP REQUIRES THAT THE INPUT CARDS BE IN THE FOLLOWING ORDER 

1. TITLE CARD 

2. MISSION CONTROL CARD 

3. PLOT CONTROL CARD 

4. SUMMARY TABLE CONTROL CARD 

5. NODE COUPLING CARDS 

6. NODE THERMAL DATA CARDS 

7. PLOT INPUT CARDS 

8. HEAT -BALANCE TITLE CARDS 

9. SYSTEM CONFIGURATION MATRIX 

10. LOSS MANAGEMENT MATRIX 

n. SUMMARY TABLE CONSTANTS 


J 
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A.l INPUT DATA CARD FORMAT REQUIREMENTS 

The following lists summarize the card formats for each of the cards 
identified in Figure A-2. All integer values must be right Justified. 


1 . Title card 


FORMAT COLUMNS . DATA 


A 

1 - 72 

Any title 


Mission run 

control card 



FORMAT 

COLUMNS 


DATA 

I 

1-5 

Number of 

nodes 


F 

11 - 20 

Time computation increment (hrs) 

F 

21 - 30 

Mission start time (hrs) . 

F 

31 - 40 

Mission stop time (hrs) 

F 

41 - 50 

Print interval (hrs) 

I 

51 - 55 

Number of CALCOMP plot traces 

I 

56 - 60 

Number of Coupling Data cards 

I 

66 - 70 

Flag for type of Ambient Air Temp 
profile 

2= Cold Day, 3 = Hot Day, 4 - Nominal 
(ALT Only) 

Plot control 

card 


FORMAT 

COLUMNS 

data 

I 

1 - 5 

PLTSEQ (input the value "1") 

F 

11 - 20 

Mission stop time 

F 

21 - 30 

X-axis length (inches) 

F 

31 - 40 

Y-axis length (inches) 

I 

41 - 50 

NOPLOT (ignore) 

Summary Tabl 

e control 

card 

FORMAT 

COLUMNS 

DATA 

F 

1-10 

Time at end of Pre-Launch Phase (hrs) 

F 

11 - 20 

Time at touchdown (hrs) 

F 

21 - 30 

Time at end of Post touchdown (hrs) 

F 

31 - 40 

Length of Mission from Takeoff (hrs) 

F 

41 - 50 

Fudge time for long missions 


146 



Node Coupling cards (one card for each pair of nodes) 


FORMAT 


COLUMNS 

DATA 

I 


1 - 

5 

I\ coupled nodes 

I 


6 - 

10 

Jf 

F 


n - 

20 

Conduction/ convection coupling heat 
transfer coefficient from I to 0 and 
conversely BTU/hr - '^R 

F 


21 - 

30 

Radiation coupling heat transfer 
coefficient from I to J and conversely 
BTU/hr - 

I 


50 


Flag for including heat transfer in 
heat balance equations in QBAL 
1 = coupled to structure, 0 = internally 
coupled 

NOTE: 

Input 

only one card for each pair of coupled nodes. 


The order is insignificant. 

Node Thermal 

Data cards ( 

one card for each node) 

FORMAT 


COLUMNS 

DATA 

I 


1 - 

5 

Node number, I 

I 


■ 7 


Indicator defining number of additional 
cards (used for ECLSS only) 

F 


IT - 

20 

C(I, 1) - Thermal capacitance, MCp 
BTU/°R ^ 

F 


21 - 

30 

C(I, 2) - Heat transfer coeff . , UA 
BTU/hr - °R 

F 


31 - 

40 

C(I, 3) - Dynamic thermal capacitance. 





WC 

lbm-BTU/hr-lbm-°R 

F 


41 - 

50 

C(I, 4) - Heat load, Q 
BTU/hr 

F 


51 - 

60 

P(I, X) - Initial component temperature 

or 

F 


61 - 

70 

r 

F(I, X) - Initial fluid temperature 

or 

A 


71 - 

80 

I 

Component or node name 

Plot 

iput cards 



FORMAT 


COLUMNS 

DATA 

I 


1 - 

5 

Node number 

I 


c - 

10 

Type of pi ot desi red (see Sec . 5 ,2) 

F 


11 ~ 

20 

Max value of dependent variable if 
machine scaling is not desired 

F 


21 

30 

Min value of dependent variable if 
machine scaling is not desired 

I 


31 - 

35 

Number of traces on this plot. This 
number must be on the plot card for 


each of the traces 
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(continued) 

One card is required for each trace. The cards for ti.e traces on 
the same plot must be kept together. 


Heat balance title cards (8 cards) 


Titles for each value output as described in Sec. 5.1.5. 


FORMAT 

COLUMNS 

DATA 


A 

1 - 12 

Title of heat balance value 


System Configuration Matrix (27 cards) 


FORMAT 

COLUMNS 

DATA 


• I 

1 - 5 

Number representing configuration 
System 1 

of 

I 

6 - 10 

Number representing configuration 
System 2 

of 

I 

11 - 15 

Number representing configuration 
System 3 

of 

I 

71 - 72 

System configuration number 
(optional - written on card to help 
keep cards in order, not read. 


3 “ Pressurized, 2 - Depressurized, 1 = Off 

Cards must be in numerical order for configurations 1 - 27. 


Loss Management Matrix 


FORMAT 

COLUMNS 

data 

I 

1 *• 5 

Primary system for node I 

T 

i 

6-10 

. 1st standby system for node I 

I 

11 - 15 

2nd standby system for node I 

I 

20 

Input a zero 

I 

71 - 72 

Node number (I) 


(optional - written on card to keep 
cards in order, not read) 

Cards must be in numerical order for nodes 1 - total number of 
actuators, NACT. Presently there are 37 actuators for ALT 
model , 43 actuators for OFT model . The variable, NACT, defined 
by data statement i n MAIN determi nes number of cards to be read f 



n. Summary Table constants 


FORMAT COLUMNS 


DATA 



T - TO Loading value for fuel, system 1 (Ibm) 

11 - 20 Loading value for fuel, system 2 (Ibm) 

21 - 30 Loading value for fuel, system 3 (Ibm) 

31-35 Loading and in-flight measurement error 
for fuel , system 1 (Ibm) 

36 - 40 Loading and in-flight measurement error 
for fuel, system 2 (Ibm) 

41 - 45 Loading and in-flight measurement error 
for fuel, system 3 (Ibni) 

46 - 50 Residual quantity for fuel, system 1 (Ibm) 

51 - 55 Residual quantity for fuel, system 2 (Ibm) 

56 - 60 Residual quantity for fuel, system 3 (Ibm) 



1 - 10 Loading value for water, system 1 (Ibm) 

11-20 Loading value for water, system 2 (Ibm) 

21 - 30 Loading value for wate,r system 3 (Ibm) 

31 - 40 Residual quantity for water, system 1 (Ibm) 

41-50 Residual quantity for water, system 2 (Ibm) 


A. 2 INPUT DATA TAPE FORMAT REQUIREMENTS 

Data tape inputs include both mission tiniesTines and fine data. 
A. 2.1 Mission Timeline Input Data Tape Format 

Each record of the timeline input tape must contain each 
of the following 56 words; 


Word # 

Type 

Units 

Description 

1 

R 

hrs 

Time 

Flowrates for: 

2 

R 

GPM 

SSME 1 TVC Pitch 

3 

R 

GPM 

SSME r TVC Yaw 

4 

R 

GPM 

SSME 1 Engine Controller 

5 

R 

GPM 

SSME 2 TVC Pitch 

6 

R 

GPM 

SSME 2 TVC Yaw 

7 

R 

GPM 

SSME 2 Engine Controller 

8 

R 

GPM 

SSME 3 TVC Pitch 

9 

R 

GPM 

SSME 3 TVC Yaw 

10 

R 

GPM 

SSME Engine Controller 

11 

R 

GPM 

Rudder Motor #1 

12 

R 

GPM 

Rudder Motor #2 

13 

R 

GPM 

Rudder Motor #3 

14 

R 

GPM 

Rudder Servo 

15 

R 

GPM 

Speed Brake Motor Tfl 

16 

R 

GPM 

Speed Brake Motor #2 

17 

R 

GPM 

Speed Brake Motor #3 

18 

R 

GPM 

Speed Brake Servo 

19 

R 

GPM 

LO Elevon 

20 

R 

GPM 

LI El e von 

21 

R 

GPM 

RO Elevon 

22 

R 

GPM 

RI Elevon 

23 

R 

GPM 

Body Flap Motor #1 

24 

R 

GPM 

Body Flap Motor #2 

25 

R 

GPM 

Body FI ap Motor #3 

26 

R 

GPM 

LO Brake Module 

27 

R 

GPM 

LI Brake Module 

28 

R 

GPM 

RO Brake Module 

29 

R 

GPM 

R I Brake Module 

30 

R 

GPM 

L MLG Uplock 

31 

R 

6 PM 

R MLG Uplock 

32 

R 

6PM 

L MLG Strut 

33 

R 

GPM 

R MLG Strut 

34 

R 

GPM 

NLG Uplock 

35 

R 

6PM 

NLG Strut 

36 

R 

GPM 

NLG Steering 

37 

R 

GPM 

NLG Restrictor 

38 

R 

, GPM 

RLG Restrictor 
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A. 2.1 (continued) 


Word # 


Units 

Description 





OFT 

ALT 

39 

R 

GPM 

LH2 ET Umbilical Retractor 1 

OFTACT (1) 

40 

R 

GPM 

LH2 ET Umbilical Retractor 2 

OFTACT (2) 

41 

R 

GPM 

LH2 ET Umbilical Retractor 3 

OFTAC, (3) 

42 

R 

GPM 

L02 ET Umbilical Retractor 1 

OFTACT (4) 

43 

R 

GPM 

L02 ET Umbilical Retractor 2 

OFTACT (5) 

44 

R 

GPM 

L02 ET Umbilical Retractor 3 

OFTACT (6) 




Total System Flqv/rates for: 


45 

R 

GPM 

System #1 


46 

R 

GPM 

System #2 


47 

R 

GPM 

System #3 





Pump Shaft Horsepov/er for: 


48 

R 

HP 

System #1 j not usedj read and 


49 

R 

HP 

System ifZ v.'ritten out for 


50 

R 

HP 

System #3 1 comparison only 


51 

I 

- 

System _ Configuration Flag 





APU Speed Flag for: 


52 

I 

- 

System #1 


53 

1 

- 

System #2 


54 

I 

- 

System #3 


55 

R 

G 

Vehicle Load Factor 


56 

R 

FT 

Altitude 



A. 2.2 Line Data Input Tape Format (ALT Model only) 

Each record of the line data input tape must contain each of the 
following 53 words. 


Word # Type Units 


Description 


1 I 

2 I 

3 I 

4 I 

50 I 

51 I 

52 I 

53 I 


Line number I 

Landing gear flag to identify 
reverse flowl ines 
Coupling mode number (Structure 
mode minus 250) 

Complete list of actuators whose 
line path includes Line I. Zeroes 
will be read if no more actuators. 
Line number I 
in. Length of line I 
16th in. Diameter of line I in number of 
16th of an inch 



152 


APPENDIX B. COMMON BLOCK VARIABLE DEFINITIONS 


This appendix presents definitions for each of the variables appearing 
in each COMMON block in either the ALT or OFT version of TAHAP including 
the blank COMMON. Several arrays which are large general storage arrays 
are defined in more detail in Appendix D. For each COMMON block, each 
variable name, type, units and definition is provided. 

Table B-1 presents a reference table for each of the COMMON blocks. 

On the left is a list of the COMMON blocks, On the right is a list of 
each of the routines, main program or subroutines,' from which that 
COMMON block is referenced. 



TABLE B-1 



COMMON BLOCK REFERENCE TABLE 

Common Block: 

Routines 


Blank Common: 

BOILP, 
HYDACT, 
MIX, 
PRINT, ■ 
THERMR, 

DRAW, 

HYDFLD, 

MOD, 

QBAL, 

TRANS, 

DRIVER, 
LI LOAD, 
PASS, 
R3TART, 
ZIPIT, 

FLIP, 

LINFLO, 

PLATE, 

SPRAY, 

MAIN!, 

FLOPWR, 

LOOP, 

PLATEC, 

START, 

MAINZ 

FUEL 

LUBOIL 

PLOOT, 

THERMP 

ACT: 

HYDACT, 

MAIN!, 

LI LOAD, 
MAIN2 

LINFLO, 

PRINT, 

THERMP, 

THERMR 

ALT: 

PRINT, 

MAIN! 





ALTD: 

PLOOT, 

MAINl, 

MAIN2 




ARRAY: 

BOILP, 

MAIN2 

PLOOT, 

PRINT, 

QBAL, 

RSTART, 

MAINl , 

COMEVP: 

BOILP, 

PLOOT, 

PRINT, 

SPRAY, 

MAINl,’ 

MAIN2 

DAMMIT: 

PLOOT, 

PRINT 





EXTRA: 

QBAL , 

START 





GLOB: 

PASS, 

PLATEC, 

QBAL, 

START 



HYD: 

FLOPWR, 

THERMR, 

FUEL, 

MAIN!, 

HYDACT, 

MAIN2 

HYDFLD, 

LUBOIL, 

START, 

LINES: 

LTiOAD, 

LINFLO, 

THERMP, 

THERMR, 

ZIPIT 


LUMP2: 

DRIVER, 

DRAW, 

START 




PRESR: 

FLOPWR, 

HYDACT, , 

HYDFLD, 

THERMR 



PRT: 

PRINT, 

START, 

THERMP, 

THERMR, 

MAINl, 

miH2 

PSSTi 

DRIVER, 

DRAW, 

PLOOT, 

START 



TYME: 

BOILP, 

FUEL, : : - 

PRTTAB, 

RSTART, 

START, 

MAINl 


MAIN2 


TABLE B-2 


COMMON BLOCK VARIABLE DEFINITIONS 


Block Name 


Variable Name Type Units 

Blank Common 

C R Variable 

DUM R Variable 

F(N, X) R °F or °R 

IDUM I Variable 

K I 

1 I 

NNODES * I 

P (N, X) • R °F or °R 

TIME R hrs 

TSTOP R hrs 

ACT ■■ 

FLW R GPM 

NACT I 

NHYD (I, X) I 

NHYOUT (I, X) I - 


Description 


Storage array for node thermal 
properties. Described in detail 
in Appendix D. 

Storage array for miscellaneous 
real values. Described in detail 
in Appendix D 

Fluid temperature of node N 

Storage array for miscellaneous 
integer values. Described in detail 
in Appendix D 

Most recent or previous value index 
for F and P 

Current value index for F and P 
Number of nodes 

Component temperature of node N 
C u r r e n t t i me i n m i s s i on ( G . E . T . ] 
Mission stop time (G.E.T.) 


Array of actuator flow rates to be 
used in solution 

Total number of actuators 

Array of actuator inlet node numbers 
on System I , I - 1,3 

Array of actuator outlet node; numbers 
on system Is I = 1 , 3 
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TABLE B-2 
(Continued) 


Block Name 


Va triable Name 

Type 

Un 1 ts 

Description 

ALT 

BH20 

R 

Ibm 

Amount of water currently in water 
boiler, system I, I = 1, 3 

BH20F(I) 

R 

Ibm 

Amount of v/ater that has been 
transferred from system 1 storage 
tank, 1=1,3 

lALT 

I 


Flag for type of mission 
1 = ALT, 0 = OFT 

ALTD 

ALT 

R 

ft 

Current altitude 

ARRAY 

FLAG 

R . 

- 

Flag for type of flow in boiler 
1 = unchoked, 2 = choked 

G 

R 

Variable 

Storage array for miscellaneous 
real values. Described in detail 
in Appendix D 

ITTER 

I 

- 

Number of iterations required to 
find a pressure solution 

TINIT(N) 

COMEVP 

R 

°R 

Array for storage of initial 
comoonent temperature of node N, 
N - If 300 

DK(I) 

R 

Ibm 

Amount of water consumed in one 
• c omp LI ta ti on cycle by sy s tern I , 

1 = 1, 3 

IWAT(I) 

I 


Node number of heat exchanger ; 
system I, 1 = 1 , 3 

WAT(I) 

R 

Ibm 

Amount of v/ater consumed by 
system I, I - 1 , 3 

WATLFT(I) ; 

R 

Ibm 

Amount of water remaini ng in 



9 • , ■ 

system 1,1= 1 , 3 
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TABLE B-2 
(Continued) 


Block Name 


Variable Name 

Iffie 

Units 

Description 

DAMMIT 




DH 

R 

BTU 

Values used for 

ERG 

R 

BTU 

ECLSS Heater energy consumables 

I ERG 

I 

- 

EXTRA 




ICOUP(M) 

I 

- 

Flag for determining if component N's 
coupling value should be used in 
error calculations 1 = yes, 0 = no. 

GLOB 




IBIG 

I 

- 

Array of nodes involved in conduction/ 
convection coupling 

JBIG 

I 

- 

Array of nodes involved in radiation 
coupling 

KEEP(N) 

I 


Array which connects node number N 
to positions of IBIG array which con- 
tain the node numbers for the nodes N 
is coupled to 

LEEP(N) 

I 


Array which connects node number N to 




positions of JBIG array which contain 
the node numbers for the nodes N 




is coupled to. 

RVAL 

R 

ETU/hr-°R 

Array of radiation coupling coefficients 

VAL 

R 

BTU/hr-°R 

Array of conduction/convection 
coupling coefficients 


System configuration flag 
System configuration matrix 
APU speed flag for system I, I ^ 1 , 3 
Loss Hanagement matrix 


IFLAG I 

IPDO I 

I$PD(Tj I 

iJIMTRX I 
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TABLE B-2 
(Continued) 

Block Name 


Variable Name 

Type 

Units 

Description 

HYD (continued) 

POWER 

R 

HP 

Current pump shaft horsepower for 
system I , I = 1 , 3 , 

TFLW 

R 

GPM 

Total system flowrates for system I, 
1 = 1, 3 

LINES 

EMISS 

R 

- 

Emissivity of the Titanium alloy 
(Ti 3A1-2.5V) hydraulic lines 

FLACUM 

R 

GPM 

Return line solution flowrate accumulator 

FLOWL 

R 

GPM 

Array of line flowrates 

FLOW! 

R 

. GPM-°R 

Return line solution flov/rate x temp. 




accumulator 

IBIG(I) 

I 

16th in.' 

Diameter of line I in number of 16th 
of an inch 

KNODE(I) 

I 

- . 

Coupling node (structure node number 
minus 250) for line I 

LINUMCI) 

I 

- 

: Line -number of line I 

LDGF(I) 

I 

■ - 

Landing gear flag for line I 

ITH(I) 

I 

in. 

Length of line I 

NLCKT(N): 

I 

- ■■ 

Mumber of line connected to actuator N 

NODLIN- 

1 


Actuator-line matrix containing each 
actuator connected to each line 

QDOTL(I) 

R 

BTU/min 

Heat loss rate in li?ie I 

SHAPE 

R 


Radiation form factor 

SPACE 

R 


Array containing line support spacing 

TEMPO 

R 


Not used 

TEHPIN(I) 

■ R 

. 

Inlet fluid temperature for 1 ine 1 

TDiPOT(I) 

r 


Outlet fluid tefnperaturc for line 1 
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TABLE B-2 
(Continued) 


Block Name 

Variable Name 
LUMP2 

BIG(J) 

TITLE 

WEE(J) 

PRESR 

DENS(I) 

PDRP(J) 

SPH(I) 

PRT 

AERROR 

ANAME(N, 2) 
ICNT 

IPRMT 

PS$T 

IPLT(J) 

IWRADR 

JPLT(d) 

NOPLOT 


Type Units Description 


R Variable Maximum value for Y-axis for 

plot J (input) 

A - Title to be used for run and plots 

R Variable Minimum value for Y-axis for 

plot J (input) 


3 

R Tbm/ft Density of hydraulic oil at the heat 

exchanger inlet for system I, I = 1, 3 

R psid Pressure drop for system in configuration J 

J = 1 - off, 2 = depressurized, 

3 = pressurized 

R. BTU/lb-°R Specific heat for hydraulic oil at 

the heat exchanger inlet for 
system I , I =1,3 


A - Titles for heat balance - error . 

values 

A - Name of node N, N = 1, 300 

I - Counter for printing at desired 

interval 

I - Number of comp cycles between each 

printing 


I - Node number for plot (trace) 0 

I - High speed drum address at which to 

start writing plot data 

I - Type of plot for plot J 

I * - Not used 

Number of points on each iHcd, 

1S9 


NPLPTS 


1 


TABLE B-2 
(Continued) 


Block Name 




Variable Name 

lyge 

Units 

Description 

PSST (continued) 




NPLTS 

I 

- 

Total number of traces 

NTR 

I 

- 

Number of traces on plot J 

PLTSEQ 

I 


Not used 

TSTP 

R 

hrs. 

Stop time to be used as limit of X-axis 

XAXIS 

R 

in. 

X-axis length 

YAXIS 

R 

in. 

Y-axis length 

TYME 




AMSNTM 

R 

hrs. 

Length of mission from takeoff 
(used for reinitialization capability) 

FUDGE 

R 

hrs. 

Time A^alue to subtract from UPTIME 
to avoid long period of no APU/ 
hydraulic activity 

SUMARY 

R 

Ibm 

Storage array for consumables values 
for summary table. Described in 
detail in Appendix 0. 

TIMSUM 

R 

hrs. 

Time values at which to divide 


consumables usage per mission phase 
on summary table. 


APPENDIX C. GENERAL STORAGE ALLOCATION 

In the Thermal APU/Hydraulics Analysis Program (TAHAP), several 
arrays are used for general data storage. This appendix presents a 
detailed definition of the contents of these general storage arrays. 

Since this method of data storage was originally defined by FEAR (Ref. 1) 
large portions of the C, DUM, and IDUM arrays are used only in ECLSS 
consumables analyses. These areas are pointed out where they occur. The 
following is a list of the array names, and the COMMON blocks in which the 
arrays are located, whose contents are defined in Table C-1. 

Common Block Name 
Blank COMMON 
Blank COMMON 
Blank COMMON 
Blank COMMON 
Blank COMMON 
ARRAY 
TYME 
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F 

C 

DUM 

IDUM 

G 

SUMARY 


TABLE C-1 


GENERAL STORAGE ALLOCATION 

P-array description 

P (I, X) - Component Temperature at node I, I " 1 , 300 
F-array description 

F(i, X) - Fluid Temperature at node I, I = 1 , 249 

Vehicle Compartment Air temp at node I, I = 250, 261 
Ambient Air temperature for I = 262 


C-array description 

For all I, I - 1, 300 

C(I, 1) - Thermal capacity 

C(I, 2) - Heat transfer coefficient 

C(I, 3) - Dynamic thermal capacitance 

C(I, 4) - Heat rate or heat flux 

C(I, 5) - Specific heat 

C(I, 6) - Concentration of .HoO 

C(I, 7) - Concentration of Used only in ECLSS 

C(I, 8) - Concentration of O7 - Consumables analyses 

C(I, 9) - Concentration of COp 
C(I, TO) “ (varies in different routines) 

C(I, 11) - Partial pressure of H2O 

C(I, 12) -Partial pressure of Np 

C(I, 13) *- Partial pressure of O2 

C(I, 14) - Partial pressure of COp 

C{I, 16) - Heater energy _ 

In the following, only the specified portions of the array are full. The 

node numbers assigned. for I are used for the node number requirement on 

the plot input card if the parameter is to be plotted. The three values 

for I correspond to systems 1, 2, and 3, respectively. 

C(I, 17) - Accumulated FueT used, I =275, .276 > 277 
C (I, 18) - Accumulated Energy used, I =275 i 27 G, 277 
C(I, 19) ~ Fuel remaining, 1 =275, 276, 277 
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TABLE C-1 
(Continued) 


DUM Array Description 

DUM(l) - DELT/2 

(2) - Ambient air temperature 

(3) - not used 

(4) - not used 

(5) - Accum consuin (ECLSS) .! 

(6) - Accum consum (ECLSS) 2 

(7) - Accum consum (ECLSS) 3 ■ 

(8) - Accum consum (ECLSS) 4 

(9) - Accum consum (ECLSS) 5 
(IG) - not used 

(n ) - not used 

(12) - not used 

(13) - not used 

(14) - not used 

(15) - not used 

(16) - Mol. weight of H.O (ECLSS) 

(17) - Mol. weight of (ECLSS) 

(18) - Mol. weight of o| (ECLSS) 

(19) - Mol. weight of COo (ECLSS) 

(20) “ not used 

(21) - Specific heat of H^O (gas) (ECLSS) 

(22) - Speicfic heat of CO 2 (gas) (ECLSS) 

(23) - not used 

(24) - not used 

(25) - start time 

(26) - not used 

II II 

(45) - not used 

(46) - A consumable 1st condensing subl 
IDUM Array Description 

IDUM(l) - inlet node no. 1st evaporator called (ECLSS) 

(2) - inlet node no. 2nd evaporator called (ECLSS) 

(3) - inlet node no. 3rd evaporator called (ECLSS) 

(4) - inlet node no. 4th evaporator called (ECLSS) 

(5) -* inlet node no. 5th evaporator called (ECLSS) 

(6) *- No. of boilers 

(7) - Flag used in THCAP to properly call EVAP (ECLSS) 

(8) ~ Flag to prevent summing of consumables for 1st call to 

PRINT 

(9) - Flag to set first guess on outlet temperature on C0NSUB( ECLSS) 

(10) -- No. of turbines 

(11) - No. of actuators on system #1 

(12) -* No, of actuators on system #2 

(13) - Mo. of actuators on system A3 

(14) - Rag for RSTART to signal if it should assign values or 

read in nev/xards - OFT only 

(15) - not used 
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TABLE C-T 
(Continued) 

IDUM Array Description (continued) 

IDUM(16) - No. of heaters called (ECLSS) 

(17) - Time step counter 

(18) - not used 

(19) “ Flag for BOUNDT for type of ambient air temp. 2 = Cold Day, 

3 = Hot Day, 4 = Nominal (ALT Only) 

(20) " Counter for number of plots to supply plot routine 

(21 ) - not used 

(22) “ No. of condensing sublimators (ECLSS) 

(23) - Node no. of 1st condensing subllmator called (ECLSS) 

(24) ~ Node no. of 2nd condensing sublimator called (ECLSS) 

(25) ~ Mode no. of 3rd condensing sublimator called (ECLSS) 

(26) - Node no. of 4th condensing sublimator called (ECLSS) 

(27) - Node no. of 5th condensing sublimator called (ECLSS) 

(28) - Flag to prevent summing consumables v<fhen THCAP is in 

sensible heat region (ECLSS) 

(100) - Flag set to zero when PRINT or SLEECT have written 
data that timestep 

G Array Description 

For the G-array also, only the specified portions of the array are full. 

The node numbers assigned for I are used for the node number requirement 
on the plot input card if the parameters are to be plotted. The six 
values for I correspond to the lube oil heat exchanger, system 1, 2, and 3, 
and the hydraulic heat exchanger , system 1, 2, and 3, respectively. 


G(I, 1) - Initialization and manipulation of boiler pressure (psia) 
where I == 102, 152, 202, 110, 160, 210 
G(I, 2) “ Ambient pressure (psia) 

where I =102, 152, 202, 110, 160, 210 
6(1, 3) - Boiling rate (Ibm/min) 

Where I == 102, 152, 202 
G(I, 4) " Boiling rate (Ibm/hr) 

where I- 102, 152, 202 
G(I, 5) “ Heat of vaporization 

where 1= 102, 152, 202 

G(I, 6) - Time derivative of the boiler pressure 
where I - 102, 152, 202 

G ( 1 , 7 ) “ Power lieat in for total of the three systems (BTU) 

G{2, 7 ) - Turbi ne heat, in for total of the tliree systems (BTU ) 

G(3, 7 V - Total heat in for total of the three sys Lems (BTU) 

0(4, 7) ‘- Heat out by v/atar for total of the three systems (GTU) 

G(5, 7) - Heat stort’d* ill capacitance for total of the three systems (BTU) 
G(G, 7) - Heat out via coupling to structure for total of the three 
systciiis (i>iU) 
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TABLE C-1 
(Continued) 


G Array Description (continued) 

G(7, 7) - Total heat out for total of the three systems 
G(8, 7) - Total BTU's error, heat In minus heat out 
G(101, 7) - Power, System 1 (hp) 

G(151, 7) - Power, System 2 (hp) 

6(201, 7) - Power, System 3 (hp) ■. 

G(I, 8) - Pressure difference between the ambient and boiler 

pressures (psia) 
where I = 102, 152, 202 
6(1, 9) “ Saturation temperature (deg) 
where I = 102, 152, 202 

SUMARY Array Description 

For each of the following definitions, J - 1, 3, representing systems 

1, 2, and 3 respectively. 


SUMARY(1, vl) = Present loading value for fuel 
SUMARY(2, J) " Loading and in-flight measurement 
SUMARY (3, J) = Residual quantity for fuel 
SUMARY (4, J) = Minimum usable quantity for fuel 
SUMARY(5, J) = Prelaunch requirement for fuel 
SUMARY(6, 0) = Flight requirement for fuel 
SUMARY(7,J) = Post-landing requirement for fuel 
SUMARY (8, 0) = 24-hr. launch hold recycle requirement for fuel 
SUMARY(9, J) = 10% Dispersion factor for fuel 
SUMARY(T0,J).= Usable margin for fuel 

SUMARY ( I, J) I = 11, 20 store the water quantities which correspond 
to I - 1, 10 


NODE NUMBER LIST 


Actuators 


-l-w P 1 TCH- 1 — 

2 Y AW 1 

3 « eng CTRL, I 
H « P IT C H 2 

-5->~Y AW 2 

6 • ENG CTRL 2 

7 PITCH 3 

B YAW 3 

■ 9 - •» - ENG CTRL . 3 

10 R D R M T F? I 

U RDR HTR 2 
12 - RDR HTR 3 

1 3-^ RDR SERVO 

JM SO MTR I 

15" SB hTR 2 

16 - SB HTR 3 

17 SB SERVO 

le ^ LO elevon 

19 > LI ELEVON 

20 RO elevon 

2 1 - R I * elevon - ‘ 

22 ** BF HTR I 

23 - BF HTR 2 

2^ ^ BF HTR 3 

25* LO BRK MOO- -*- 

26 « LI BRK MoO 

2 7_^, RO BRK HOD..,. 

28 ^ RI BRK HoD 

29 L HLG UPLK 

30 “ R HLG UPlK 

31 «-L HUG-STrT 

32 R HLG STrT 

3 3 NL6 UP lock 

34 NLG strut 

35 ^ NLG ST-RNG- 

36 « NLG RSTR 

37 RUG RSTR 

51 « Pl.VCHl OuT 

52*^ YAW I 

53 5? ENG Cl OUT 

54 PITCH2 out 

55 YAW 2 OUT 

56 ENG C2 OUT - - 
61 - RDHTR2 OUT 

58 ^ yaw 3 OUT 

57 ’?• PITCH 3 Out 

■ 59 eng C3- Out 


60 


RDHTR 1 

OUT 

62 


R0HTR3 

OUT 

63 


RPR SR 

OUT 

6 4 


SBHTR 1 

OuT 

65 

■ 5!P 

SB MTR 2 

OUT 

6 6 

cn 

SBHTR 3 

OUT 

67 


SB SRV 

OUT 

68 

' V* - 

LO ELV 

OuT 

69 

a:-* 

LI FLV 

out 

7 0 


RO ELV 

OUT 

71 


PU ELV 

OUT 

7 2 

' ci» V 

bfmtri 

0 U T. 

7^ 

?? 

BrMTP2 

out 

7 4 


BFHTR3 

OUT 

7 5 


LO BRK 

OUT 

7 6 


Li BRK 

OUT 

7 7 


RO BRK 

out 

7 8 

■ . 

Rl (3RK 

OUT 

7 9 


LHLGUP 

OuT 

6 0 


RHLGUP 

0 u t 

81 


L HLG 5 1 

out 

0 3 

' ■ xp ■ 

PLG^UP 

out 

85 

L? 

R L 0 3 T G 

out 

86 


Ni.G RS 

OlJt 

a 4 


f*n gltt 

out 

82 

A'* 

PM LG ST 

QUT 

a 7 


! vl :b R 

CuT 







of&PAGBis 

QU 4 tn^ 



System 1 


100 ^ TURBINE i 

101 - gearbox. I 

102 BLR I APUHX 

103 H2 0 TANK 1 

10 4* *■ PUMP 1 * 

105 « CASE DRN 1 

106 ^ PUMP 1 OUT 

107 »• HI X HYO 1 

1 08 CD 1 M I X * 

109 s. BLR 1 BYPS 
I 10 BLR I HyDhX 


III 
\IZ 
113 - 
I 1 ‘1 « 


HYOHXl OUT 
R5RVR I 
RSRVRI OUT 
DUMMY 


System 2 


150 

- 

turbine 2 

151 

V* 

gearbox 2 

152 


BLR2 APUhX 

153 

tf; ■ 

H20 TANK 2 -- 

154 


PUMP 2 

155 

r* 

CASE DRN 2 

156 

•7 

PUMP 2 OUT 

157 


MIX- HYP 2 - 

1 58 

- 

CP 2 MIX 

159 


BLR 2 BYpS 

160 


SLR2 HYDhX 

161 


HVDHX2 OUT ■■ 

162 

' ^ 

R S R V R 2 

1 6 3 


RSRVR2 OUT 

1 64 


DUMMY 


System 3 . 

200 

- ■ 

TURB I NE 3* — 

20 1 


GEARBOX 3 

2Q2 


BLR 3 APUHX 

20 3 

ftHf 

H20 TANK 3 

2Q 4 


- PUHF 3 • * • 

205 


CASE DRN 3 

2Q6 


PUMP 3 OUT 

20 7 

ia 

MIX HYP 3 

208 

" ' ^ 

-CD 3 MIX.--’-*- 

209 

-it* 

BLR 3 BYpS 

2 10 


BLR 3 HYOhX 

21 i 


HYDHX 3 OUT 

-2 1 2 


RSRVR 3 

2 13 


RSRVF.3 OUT 

214 


DUMMY 


Boundary Nodes 

Ho “ ArT'FUSELG 
2 b I ' E N G I N E 5 - - - — * 
25 2 LEFT wing 
25 3 RIGHT WlHG 

25 4 «• HID FUSELG 

255 «• VERT ST As ■ 

256 - body flap 

25 7 « R UHL ^vLLL 
25 U ^ L UHL well 
2 59 f' WD F U SLUG 
260 - N UHL lull 

26 i "• DUMPY 

26 2 AMP A|R 
27b f ULL-ENL kG 
2 /5 ■ f UT.L^ENLLG 

2 7 7 • T U 1 1. ' ■ E T’ I P G 


APPENDIX D. SUBROUTINE LISTINGS 

The following are subroutine listings for the subroutines discussed 
in Section 5.0 



VER 

N V EXcC n; UE:VEt. 2 &A-- ^ t execs level El 20 IQOl 

AS DONE ON ,q 3 SEP 76 AT 06;2S;2b ^ ' “ 


OV-101 (ALT) VERSION 


« * 
b «s- 
6^' 
7 « 

9* 


ENO OF compilation; no diagnostics. 

OV-102 (OFT) VERSION 


■ - I ^ ~ - ^ C 0 H n 0 N- - K- J t; ? D £.L II , T I M E , T S T 0 p ? N N 0 D £ S — - ^ — 

2^> COMMON P ( 30C ! 2 )i f *" ( 300 , 2 J » C ( 300 » 20 ) 

3* common DUM { 1 GDJ ^ tDUH? I OC > 

common /LUMP2/ TlTL£n2n&lGl25IsVVEE(25) 

s* ' IPLT( 2b ) f OPLT L25 J ,PLTSEGt TSTPi 

6® * YAX tS I 5 I , NOPlOT t 5 ) » NPLPTS , NtK I 2S r, I « 

7 CALL MA r N2 • * . ‘ ' 

8^ i F ( ] DUKUOI TGT CALL DRA'a' 


Lfip OF coMp I L A T T on ! V NO diagnostics, 


common ■ k V'l V' o E L T', T I MT , T S TOP', N N Op E'S ^ ~ 

Common P < 3Q0 j 2 } , F I 3oO y 2 ) . C ( 30G , 20 J 
Common DUM{ioo),|DUM<iao) 

Common /LuMP2/ t i tle ( i 2 ) , b i o ( 25 ) » wee ( 25 ) 

C oM M Q N / P S S T / N P L T S , I P L T f 2 b ) » 0 p L I ( 2 b ) , P L T SE'GTT 5TP ( bT 

^ YaXTS { 5 ) , NQPlOT ( b J ,NPlPTS , NTr ( 2 b ) , 1 AKa 

C A L L M A I M I 

tf n ciijM 120 ) , gt . G;^^_ Call dp aw _ 


;9 o 

^ to 

^ o' 


Ps 


F"'OR , ^ DR I VEH , DR i 
L'n 1 V AC T1 OS F ORTRa 
This COMPiLATIONT^^ 


OA ; - 


,XaAI 5(SJI 
DR , i rD^uk 


b) iXAXlS^bl 

hadr , i rdauk 
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o o 


o 


W. 1 ,' ■£? . 

2 i 19 

"2 -3 rr 
2 *!> 

2 o %* 



2 ■(•,! M 

“5. '-^ W: 


c 

c 

t . 
'C' 

c 

C 

c 

-c- 

c 

c 


r p L f\ G 

T 0 


flag 


-I-SPD 

I T V 
AT ( I ) 

jk 

-ri A C"T— " 

wh 


s Y s T F w C 0 M F I r, U R A t I 0 H _ ^ m n n F 

F L A G ’ U 5 E (3 T N PRINT ^ _ h * 1 r v * M ) 

printing TO C(X i i 
■•■OPER-AT-IH-G-^PFED-F-tA-G- 

VALVE FLAG 
R 0 F B 0 1 1 E R I 


DATA 


MAIN! 

2 of 7 


-APU 

TR AMSP'ER 
HOPE NUHP 


NUHDER 


I’M • r. tn u r ^ I- k < Y 

OF actuators oh STST^-'^J^ 


T 0 T-A L “N U M B E R * 0 P- A C T U A T O 
COUhtfR FOR K'UHB'ER OF TAPE REC ■ 

process , PER S9!'''"..£I£^MnMr,FRc. n 


DS TO 


'4 y 


32 


- ^ - if 


H Q D 

U'lTUROn- 
P2 
T Ft 
T F L a A^ 


APR&V OFACTUaTOR node number 
-HUMB ER" b P‘ •• A PU /H Y D R A U Irj C- 5 Y S T E-MS- 


ON • SYS I 


FOR 


*3 il V ■ 

3 H> 0 
27 V 

'i n 


T F L w 


H Q .7 
! 


T iHE 
-UpTTHE- 
WAI 

'AATLOD 


AMBjf^NT AIR pressure 
total SYSTEM FLOV'iRATES 
T£^lPoRARV STORAGE 
F L 0 V? R ATE 5 -- 
T 0 T A i . S Y S T E M 
COlTP _.E V- EE 

T T H 1 C H-T 0-u pda t & 
Ihoukt of water used so 
AMOUNT Of water LOADED 


READ 

TOTAL 


I N 

SYSTEM 


P5 I A 
6 PM 
GPM 


FLO'TJR ATES used PO''^ current 


— T T H E L-1 N*E — D A-T-A- 
F A R ■ 

IN EACH SYSTEM 


GPM 
HR 5 
-HR 5^ 
LDH 
LBM 


R 2 « 

,,/i 3 ^:- 
R 

M S Y 

G is 

. - 
B E' 
R 2 - 

■ h A ^ 
3 2 fi' 
S 3 A 
i 

c. 


,p.^ p 4 nET-E-R -'NU M A C T "3 / 
niMENSlON PNHS)y|XP 25) 
ClHENSlOU I NODES U 2D) 
n T NF '«S lON I 1 v2 ) 

| HrN5 iON—l-O HN 


0 IMENS ION Ft. i NUMacT } I PLA^J 
0 1 M r N S 1 G ?•) T t 2 S ) j T F { 2 S , 5 □ ) 
0 I N E N S LO N K K t 7 ) 

0 T M E N S I C 0 K f ■( T"2 
nFwcfj^ToN , TTV(3) 

D t nENS ION TOTFUL ( 3 ) 
cb‘lpGN p*l»delt,time.tsto 
-Cl) PM cp-p f-3 D G i^n 


f 


oLfLVH’SISC) ,I?PD! o) .SKiPOKO^ 

TF(25,3I ,TFL13) .TFLWaO) ,T5-UA..t-J 


act { 6 ) 
) 


fi «- 

S 7 * 
E 3 
SSo- 
E 0 


»> 

- 3 
A 2 
E 3 -u 
h b * 
A 1 ‘ 


f <c <? 

7 3 
7 ?;> ?> 


COMMON dum ( ICC > i dun n cc 5 
c C M M 0 1 1 / p R T / I PR H T ^ I G N T » A 
C C t1 M 0 N / ^ R R A Y / Cl t 3 C D » 1 0 ) > 
r OMM0N—/T YMEPTIMSUH 1 3 ) ,AM 
COMMON /Co M E V P / I W A T ( I 0 ) s 
CaM^-'ON /ACT/ NPY0(3 i50). 
r noMCN/HYD / ! PpO ^ 27 j 3 ) > I.MM 
•C'PMiM 0 ft --7;‘A pT -/"“ B H 20 t'3 ) ? Q H2 0 
C 0 H M 0 N /ALT U /ALT 
E 0 M I y A L E IT C E { I 0 U M (1C) » N T U K 
D ^ T A tot F U L / 2 9 5 9 » 2 9 5 , 2 9 ^ 

•DA TA - ISPO / i pP* 1 / 

DA TV. ccons/csM", , / 

DATA HPRA TO/ 135. / 

G AT A 10/799/ 

-D A T' A-- TO" V^/ C rC ^ T 0 / "" ' ' 

D A T A W A T i. 0 0/5 C •* 3 A / 

N act /NUN ACT/ 
INOOES/TCs&O, / ^ , 

1 i H A i j f; 2 i 6 7 i”r 3-5 ’^ '3 7 i T 

-7i >?3.7?.23*73,2« 

3 1 . D i . 3 J > 2 S • 3 3 . 3 3 , 3 R 


. -NNODES 

eicDDTaoi- 


NAME(3D0,25 ,AERROR(ai2) 

T INIT (3D0) »FLA6 5 ITTER 

S N T M , r U 0 G E , S I ) M A'R Y ■ ( 2 0 V 3 )“ 
WAT < iO ) ’0\t( 10) FT { - 

HYOUT ( 3 f 50) ,NAC] ,f ! 

T R X ( 53 « 9 ) , POtfiER ( 3 ) ? I OPP ^ 
F ("3 rtTACT- 


3) , IFLAG ,Tf LVV { 3 ) 


8N ) 
« / 


DATA 
D -A T A 

f6 

■ , 


, B H s 35 j B5 » 36 7 B A r 37 » 0^ » 


, 2G t7Q'v 
i G » 6 0 I 
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TA ST VO, 
T A T K V/ , 

7 A aco£; 


I aU 
f S T / 1 


5 i m » 10 2 a. I 03 i I 0^ .» 1 CIS » I c6 , ] 07 , 1 C& s I 0? t i 1 0 » ! I 1 
M 3 , i I 4 , 

« f, & 1 ylB2, rS3 ^ 15-^ I ^ » 1 S^ , ! r>7^, IS8 » j 5 V , I 6 g , 16 } 

>25i I 202 7203 y2U‘^ >205 ,206 i2G7 , 2 o 8 . 209,210 1 21 I 

2l3v2i'^ f , 

,23] ,232,253, 2SM, 255,253 ,25 7,258.259 , 260 . 23 I 

7 2 7 6-i 2 7 7a 2 7 St 27 6 'v 2 7 7 — 

STVC/3 «n/5A/2 ,0/ 


5 +2597 7 7 7*7 

E~|9, “0+234 ]H 164 

E-lA 

:i + :8 7a7 57r^7“ 

~E-“ T 4T"''”U7 7 7 2 3 7 ) 4T“' 

--E-1 l- 

5 « I 985359 7 

E~C9v -0^13227453 

E-a7 

3 F5 3 44 157 A 

E~06, -0X13252552 

E-04 

3-*2 1 215722 

1>‘03T -0 •74747882 

E-03 

2* 3S 3 3-3‘6 7:r"' 

-E-O 1-5 1 i OEQ 

— 


, 112 . 

,212, 


,232, 


MAIN! 

3 of 7 


ST /UPDATC/UPT IHE .TPLW sFL7 ,P0W£P rSK 1P,ALT2,ALT,1FLAG, 
i \ - A b ] 7 E- “ 1 M P U T D A T A " v A I- U E S — — — ™ 


I SPp 


I i « I \ 

T A AT t 
“ f f^'A Ti 
IF LAG 

C ( 2 7 5 , i 9 2 5 » 

C ( 273,19 )-295, 

*C-(-27 7'^ 5 1 9: 7 =^2 95- . — — 

-U C 2 3 “ i j. j 

bATLF'n J 7“SUt>iAR>M 1 4 , J ) . : 

on 5 J'=1^3CC ' - ' (B SAVE INITIAL COMPONENT TEMPS 

-rl N rTi'7T-- *“P-(-TTir5 ^ ^ — 

TO =TIIT£ (3 SAVE START TIME 

I 1 I - C 

00 I S J“ 1 , 2 

EO' -ID I - 1 5 3~" — j;.-|,,.|,^.(^.;,2E--PRESSURE----T0R---a0I LER - ROUT 

)'■' s? I ‘A’ A T ( 1 ) •*■ I I I 

G I M j I ) = ] 4^7 - ■ . 

■COM.T INUE : ■ 

•IIT =-TTi-+ 5— ^ — — ^ ^ ^ 

COMT I HUE 

read first riMEPO I NT 

PE AO I 2 > UpT I ME , I FL ( H I , N“ It 29 f , X , FL f 30 ) , Y , ( FL { N J . N-31 , 33 ) , 

7 T ( FL (M) , H-3 4 737 ) , DFTACT , TFL , SK I P , r flag I , 1 SPD I , OR AV , ALT2 
ALT=ALT2 'E SET ALTITUDE TO INITIAL INPUT VALUE 


U- 102 
Z)~ \B2 
3 V--20 2 

= 27 

. i O - -3 o 


ra SAVE INITIAL COMPONENT TEMPS 
13 SAVE ST ART T I ME 

— (?-i N I-T-I'A-b-bZ b--P R E S SUR E--EOR-- an I LE R - R OUT I NE 


+ 1 T ~ 1 Q 

DC 2 5*' I = I , NTUPBN 

f’H LH }•” F fNTrb}- 

T xr rt y - 1 

i FXTFLL U I .GT . »DC2l ) GO TO 2D 


-2—S A- V E— 1 N- 17-1 A b~^ U R BT-U E-TE-Hn. 


V »>it 


l E ti C 



rxp ( i ) =c 

f S‘ 



F c lt , X r 

t ^ V , 



pftvTjZ) 

1 3 


■'"* — " 

- C EKT-^l-vS- 



n 
4 4 

CCLTi HUE 




LT=HT+5G 



?F 

com I HUE 




?M T-ET 6 i 

; ’vT '2 

c 



a ■' :• ■•? 

c 


w E 0 1 H T i 

I R C ^ 

c 





■779'" 

- C cm I HU F- 

E 



T { n -T 1 H 




N M S i 

1 <”■ 



DC 3 0 I - 

. ? r. T 


.►..Ti-n 

- T r ii p w { H 




U 0 M J 




FlUiTC J J =' 

^ ■ 

c 



’ T Jy 4- — ' 

V--' 


-1 S- J>PT 1 M 

I & /' <V ' 

c 



15 7'^ 


EC 

i F ( IT I ME 




T ( NM + \ 1 = 

■**■ *? “t'- ■■'■■' 


- 

‘-00^-AC A ~ 

'i A' 7 



T7F { MM + S 

‘■A' i < .' 



Tf L ATiJ T ) 

i : 



1 SPD ( 1 m 




.-•r: r i » * r ■» >.* 1 1 C.. 

Ft? 7: S3'-'":’ ■" 



'J t. i t 1 i !t U C" 




D(j 7C J 

1 L F 



T r ( ? ; M ■»■ 1 p 

• ( \ r* 



" L A V‘ i J ) — 

1' ■/> i ^ 



COL T I HUE 

! 7 •' '> ; 



1 F L s^ G 1 F 

*' 7- 7 ■’} ■ 



T C L H <' 1 ) ^ 

7" r'fC 



LL !4 \}>* 4- 1 :: 

i. ’ : 


... — 

■"•PE ADI 2 5 E 

L’? ^ t? 




T T j 



GO TO 50 

I 7 w r 

c 



T * - F C’ ■ 

r 


••A-VcC ;V GE- - 

1 1 r, ' 

■ '■ 



■\ '■•■* t 


f- 

? LHUHE 

1 7 i?- . 



U ? a I - 

1 7' ‘^Xi- 



' Tr I V. i H ~ 

i P c«> '■ 



DO ] CC j 

1 P i . 


3 CP 

E LV. { J J = F 

i' ■ ■ ■C-’ ■ ■ 



LC TO 1 S 

1 r «;—•■•-— ■ 


•H C 

-OC ••']. 3C "T 




or 12 C M 




TFLT.A (11 J 



i ?C 

C C H T I H U E 



ICC 

-CELT rHUE- 

i P R « 



DC ISC J 

1 r.' 7 , 



U e 1 R C M 




? L IV A {21^ 

i J ™-' 



-CO HT IHUE 



15C 

CmiTIUUE 

t R ' '' *»' 



Do I (SC I 


R TURBIME IS INITIALLY OFF 

/? SFT turb I ne;- temp equal to structure 
e temperature 

' fS""5' E'T — E' 0 6 E~~ 0 1 U~ FLO W R -A -T E— T 0 — Z E R O 

mi 

4 0 

J.J. la-L -N a h 


T S- -UPT i ME..-lf.T-T H T(vf....T-HT COH-PHT-A-T-i oH— 5^ 


M T E- Q R-A T E,.- T- OJA 1 S J 5 1 EH- S i 0 W ■ 


Z j ( rL 1 N ) , N‘«3R , 37 ) , OFT ACT . tel , 5K I P , I FLAG i , I 5P0 1 , GR A V , ALT2 
OTH-JOT AL— 5 Y 5TEH"AH0 -AC'TU aT OR 'FLqV. rates -OVER ^4 IH ESTEP 


nj 


• ft '*7 

1 V 7'i^ 

ft t- 
1 


:^c;: .J 
3 '? 3 ft 
ft; r ft .rj 


:: 3 / ft 
r* r-» 


Tfj_v.-riJ ft l Trtv"j\?. C I ) ft ( f T I MEftDELT > - T ( fv,iH > J * TFLAW U ) 5 /DELT 
16C cor:i Hiuir . 

EC l?E J-r*NACT ■ , 5 

■) •■••■»■■ ( F LVV ’fr (~u ; — g-t-f-)-— w — « — f=-ls' -AD £ ir4 — 

i7U continue 
CC TO 3CO 

acc UPTrfE-UPTlH^ r?; ZERO FLOW FOR LAST TIMEPOINT 

'■ ■ .'-OCr ac^i , 1 = 1 .NTURON; ■ 

Tf 1. Aiv O I t ~C A 
..: TFL'<. ( n=Co 

'Ecri’'' PO WER' IT' 5 “D r- 

DC 8E2 vJft J j NACT 
F C A A { J ) ft c. ip 

-IE f j j ft a I' ■ 

■ CO NT I NUF 
■COLT IDLE 


I'f 

C I C 

C s-C ft 

T 17-ft 
CD ^ 


<■' tft A ft 

ic. C' A 

a c 


CALL PYDAcT 
Call 2 IP It 

lio I = I yUTURRN 

call r LOP wR ( ^ ,M 1 ) 

CALL tlM-LOi n 

C ^niftl j 7 5 rz POLER ' I) - 

;f ( tfla { u «lt , ,Eocn go to 210 

I TP I. IT = I ^;,. . . 

P:TE‘:i 5 * > ~F'N M I )• -\ — • — 

:F Le 1 . t 2T ftPA i 1 n ■ , ^ 

ft '■ 7 0 ft ft 


2 build actuator arrays 


R COMPUTE PUKP EFF i C 1 ENCT MOWER 

~ — “ C'AS’ E‘~*D R A I N- FLO W R-A-TE- 

C' STORE POWER FOR PLOTTING 

<?. T U R a I N E I S C N 

■fS S E-T— T U F B r N E -T E M P M O-^-1 H I T- J A L™ V 


T 3 ft 

■ ft 3 ft ;;, - 

fj 

2 ft ft 7; 
A ft C ft 


M } = C .. 
> 3 ) =:2 t 



■■CAL 

L:-:-LUD0 i LC T-vNL)-- 

a *■' ' 

■2C5 T- I 

T I M E ■> G F p ’'■i 6 3 6 6 f 

ft ?i 

CM 

T I Y c. t G E p «■ F 6 3 6 6 } 

c « 

1 F 1 

I A 1, T <»«’■£'» I • 3 C T 

I 0 *'‘~' 

A. A 

ftr C - 

cchpijte T 

ft /t 

c ■ 

OF T PAMSf 


--S— T U R-Pi> N e— 1- S 0 F F 

Ti SET gear box heat LOAD 
-5 AND FLOWRATE TO ZERO 
P? SET hydraulic HEAT LOAD 
-E' - • and -F L 0 Vr R a T £- T Q Z E R 0 


“f2~e0N PU-TE'-P R 0 P E R T-I-E-S— OF— bU B E— 0-T-l 


TY considering PCS IT I ON 
Ten ONLY ) 


; *-} f- ^ 

ft ' T 


IF ( I TV CM «E0. n GO TO 2lS 
BHZO ( i ) "WATI.OD-W AT ( I ) 

CCM|*2rli = BH,20n) 13^2 

i N I I c * 1 M - B H .2 e f T I 3 ^ Z ■”• — 

P C “" D 2 F 1 

BP20T I L=WaTlCDh'BH 20F n ) -• Vi ATI I } 




HAINl 

6 of 7 


t. O "j 

r 


<i. f I ^ 

2 71^' 


r'L, u .; P-H2C F ? n , 

{ f r y 1-* ? 0 { r ) V Ct r « Sr 7 *! •'? ) H 5 { I ) = J A . <> { 8 H 2 O u } - S 7 • B ) / 1 5 » 5 8 
P r ?0 p f I j - L‘ H2 0P ( I ) -*^ic • 532 9 ^ D F,LT * G?? A V « ( 1 M • "7 » BH2 Of C 1 I / 6G • - H5 t I ) ) 

Oil A f =-■ 6 H 2 0 F 7i 0 H 0 1 D — T;: — “ 

P U'f I ')-2 > K ) - ( F C rn + 2 J K ) «*pH 20 ( n + PI N 1 + 3 , K ) » DWTR an ) / ? BH20 ( I ) ♦OWTR an ) 
P ( N i + 1 G, K ) = P (Ni +2>K ) 

BH20(f) ^ +^A3LQ0^ BHpop c| ) - ^ W at ( n 

~ 5H20 < n 5 3 C.2 ’ 

C ( r: i IG ! I ) = BH 2 C ( i ) + 1 3*2 

ccNTTNUG : ; . ; ^ 

CCNt i NUE 

I F t T 1 P £ .. 6 t , 0 ) C A L L 8 0 U (f D T 

tOHPUTE Alt I TUOE 

AIT" C rALT2-AlT 1 f/ IME-^G_) ) + ( T IH£ ^TO> + A LT I 

alt I - ALT 

ALTKM " Alt * a 30MeCD6£”3 (3 convert altitude to METRIC 

7TFM~G » ' 

70P.t\^^ ALtKMTERM + ACOEF(r) FOR CURRENT ALTITUDE 

CCNT I NUE 

P " L F U R - V » r / ( T E R M M } 

■P 2 =r ' F R ES Uft« j R ♦ 69 — ^ Q--CG r^VERT-P RE S SURE—f'ROM— aT-MGS^ 

THERMAt LOOP 


f: for current altitude 


(n!""CO RV E R‘T""P R E S 5 U R E — f R O M-^AT-M G S » — T G”“P S“I" 


:r L R 

/ i5 

2FP6 
2 F 9 '> 

o r> _ 


? f »» 


o 

3C ic 
:■ ^'; 2 ^ 
6L 2 c*- ■ 
% r t. * 


CC 3CC 5 N TURIN 

^ F LI 7’M I LpEQ^G j call PASS ( N ) (3 I F 

■■ T R 

■CE-AR"-DOX-"“LOOP~:“ — — ^ 

CALL LOaP(N+t } 

CALL PLATEC(N+L,N-^2 ) _ 

F V CRAVL I C LOOP 

■CALL LOOP { Iv + RJ _____ : 

CALL PL^TEC{N+Li,N + 6) 

if <C (N + 3r3KLT« i , ) CO TO 7 PR 

rCN + AjL) ~ fCN+MjL) •** Mr 

C 1 P 6^ j ) -"■ ■' C ( N ^ 6 ■>■ 3 ) •■ * ■ R 

CLN + R^ML - POAER ( I ) ?EMS , ■•' C(N + 7tR) 

C { K + L ? R if C ( N -i- <Lj R ) "■ C ( N 6 s R } 

Fir'^S^L) is F lN+RfLl + C(N-^'5 ?^n/C<N + 5 c3 l 

CALL HERMP { I sR ,P2 ) 

UK - 1 DUN UC^ L ^ 

TF UK.FO^E) go to 27C __ __ ^ 

f '00 is y D f I 5 NP j 

Call PLATGC(NrLsNoD+50) 


f3 If turbine IS OFF. COMPUTE HEAT 
TRANSFER FROM TURBINE 




3 U* 
■1 1 
• T i 2 

3 I y e 
* 

». »> -,• -n 

j r, 6 V- 
3^ * 7 
3 ’ * 
3 i 7 <v 
3 

3 3 1 ^■- 
i .'1 ;2 
3 ? 3 
3 3 “I •■> 
3 3 3* !r 
3 / 6*? 
5/7t» 
3?? 


76S CONI TMUE 

CALL THpRKP n s?iUP2 ) 

27v ‘<K f ‘3 - 

C A lC X ( N-^O , 2 I.KK ) 
lF(C(N’f**^53)4i-E..3> GO TO 275 
IF (CLN^'-3s3j ,.3T ,fH379 e3^ ) GO 

■--■ ■-•: C l fi + :j 5 5 3 ) - c t N^ 8-5 3 } - 

C ( N^r j3 > 3^ 


MAINl 
7 of 7 




GO TO 27'3 

C 1 ID s 33 K *^37 9 <, 3<f 

C 1 ? 3 } ■ X ( N-^8 t 3 ) '“"' -‘‘H'3 7 ?:w 3 H — 

LCLT ] ^iU£ 

- 1 LX|3 jL)-r 1 N-!-3 t L) 

FtNvT fl) j^F ( F-«^3 , L ) 

CA tl BO t > N + 1 Q i> 1 1 9P2 , F A , S T V C , S T V 0 ) 

J i ll j-N+$ 

J ] I 2 L~K 'U i 


■3 2 S « 

3 OCf!- 

3 3i4? : L , 2 7.5 

3 0 2«- ; 

•call HiXCN4-i2-9'2bH> ” * ** ' 

6G TC 200 
CCNT I NUE 

C A L L T R A M S ( N 4- R , N 4- 8 ) 

r / 1 { T C! r w c { kj j, ti . M 4 - Q ) 






2. ^ ^'■ 
3 *1 b ^ 

C ; L t T n A M 5 CTHM j N 4- 1 E) 
CALL PVDf LD ( 1 jN ) 







"I c- 

“« ‘9 >** 

V 3 ^ 

3 3 '!■ « 
3 ^ C « 

' 3 • 4' ' | . S ' ' 

3 F f 

3 F: It, 

3 B 

■ J 07 O*' 

3B6C* 

3 5 7 
3 '■' 3 ^ ^ 


call POMf f N + 2 sN 4. 1 ,M+ig,fj+U5P2,EA»STVC,STVO) 

■c/ ^L“'-TB — — ^ — 

CALL PASS 

Cnu PL ATFC 1^4^12 tfvl 4-13 j 

CALL TPaNs(N4-J3,N4-4) 

C A I L- TP aNsT ^j4• 1 3 ^ N4-i S ) 

Fr *4 + 53 . ^ ■ 

CCPTILUC ■ . . 


CAL L -r U P I < TO T F U b I ) 

CALL oe AL 

PF { ICLP ( 2c ) 9 LE'ca ) GO To 35G 
call PL cot 

C A L L ‘ S £ L L C T i - 12 3 + P t P ?• iTiO D F S r 

Call pl Ip 

IF ( icAT + i IPRWT) Write (Pi 
"IFT T IPS , L£ e TSTCP )-G0- T0'''7 77 
CALL PRTT AS 
PF “ U.R?4 . ■ 

EPO . 


GOMP 
DO H 
IF N 
5T0R 
P R 1 N 


UT£,.f Ul 
EAT SAi 
Q PLOT' 
E DATA 
T--MODE 


AMO.-ENE 
ICE TO D 
iES I Red , 
iR DE5IR 
, T A-^-A N D 


RGT- CONSU 
ETERM INE 
SKIP TO 
ED PLOTS 
I NCPEMENT- 


WED — 

ERROR 

SELECT 
-TIME ■ 


date ) 


COMF1 L AT JC'^F 


0 ! AGNOST 1 c5 




o S 

^ Q 
P S 

^ H 



1 * 


: SUBKOgTjNE IN2 


v« 

. c ■ 

variable NAME 


.... r : 

■ 



c 

alt 

6 

c 

SH20 

7* 

c 

C1X5U 

a t' ■ 

:-:-:.--C 

— - Q\^yZi - 

1 C* 

G , 

■ C ■ 

C i X 5 3 } 

I i ^ 

'C ■■■" 


1 

1 

.• r 

.. .. ^ 

c 

- T" — DwTRAN 

V M 

c 

fl 


c 

flaw 

i s '*f ■ 
1 7® 

-- C "- 

' C 


1 b'S’ 

c 

Gray 

4. * 

c 

ITS 

? n jh - 

C 

I flag 

2 i 

C 

1 0 

22* 

c 


2 3*T 

c 

: . I SPD 

ZH^r- 

2 5!^ 

Q ......... 

^ :C 

• ; ; - : ■ 1 5PKAY 


C : 

ITV 

2 / * 

' '.'C 

iWAT M ) 

2 S*: ^ 

^ C''-: ' 

■■ -^-JK -"■■■■ 

2 9*5> 

r 

V 

NACT 

3Q >5' 
3| a 

c 

c 

nm 

3 2* ■■ 


- — NOD ■ : 

33* 

c , 

N T U R B H 

33 * 

r 

■A- 

P 7 : 

3 n ' 

.C 

TFL 

3 6* 
3 7 f> 

. , .... .. r ' -■ 

r* ■ 
V 

■ TFLAifl^ 

3 g & : 
3 7 * 

E, C 

c 

TFLW 

U j * <5 

.... J 

' , T 1 ME ^ : - • 

H L'> 

c 

UpT 1 ME 

3 2^.' 

■C ■ 

- WAT ; 


r 

watlod 

AJ tJ. .;5» i 

r- ■- 



1 0f^7 

DESCRIPT i ON _ UNjT5 

CURRENT ALT! TUD£ FT 

AMOUNT OF WATER IN bOlUtR 1 -Bm 

THEHMaU CAPACITANCE' *' bTu/DE(a R 

HEaT TRa'’^SFER COEFF J C HnT bTu/HR*UtG R ~ 

dynamic THEHMaE CaPACITaNCE U6M-tB Tu/hR«LB-K 

(MASS FVOWRaTE SPECiFiC HEAT} ^ ' 

HEAT LC-aD OK heat RATE" bTu/H-R 

AHOUNT Of WATER TRANSf Erred TH I b COMP Ub(i " 

cycle “ 

actuator flowrates read I(^^ opm 

temporary storage for actuator flowrates oPm 

ACTUATOR -FLOY-RATES USED PgR CURrlNT * * 

COMP CYCLE ' ' OPH 

C * 0 , L C A D P A C T 0 R 

HeiGHTH OF’WATER IN STANDPIPE 

S V S T £ M C 0 N F I G U R A T I 0 N F t A G - - ' 

FLAG USED JN PRINT TO LIMIT NODt DATA 
printing TG C(A,l) thru C(X,4^ 

Apu operating speed -flag 
FLAG TO TELL |F sPHAY bgigER rAs BEln 
i N U S E ~ 

transfer valve flag 

NODE number of BOILER I 

number Of actuators- ON* SYSTEM 1 ' * * ■-•'— 

total nuhser of actuators 
coumteR For number of 1aPE records to 
process per comp cycle 
ARRAY OF actuator NODE'MUMBERS UN S Y S ' 
number or apu/hydraul I c systems 


ambient air pressure - PS|A 

TOTAL system flowrates REaU IN GPri 

temporary storage for TuTAL system GPm 

L 0 ft' K a T E S 

TOTAL System FLoftRATEs used for current 

COMP CYCLE GPh 

CURRENT TIME hRb 

TIME at which To update T I MEL I Ne ■ data h'Rb 
AMOUNT OF water USED SO FAR LbM 

AfSOUNT UF water LOADED' in LACK SYSTEM Lb|i 


H S ■ 
P 7 ^ 


5 0 
b I 

bZ^\- 


b H 


ESP 


NUMACT“R B 
P N 1 ( & } > I X P i B ) 

inodes 1 i } 


I ? 


2 ) 


parameter 
D I hens I ON 

p I MtNs I ON 
D I H E N S I Q N 
D E MENS ION 
OihtNSliON 
DiHLNs f ON 
DIME r; S I Q N 
D I HENS I ON 
DIMENSION NOOEUnUMACT) 

DiHENSlON REFILLt3) ,USED(3) » ITaNK(3) ,ISPRaY( 3} 
D I ! ON TCTr UL I 3 r ' 


TO n 5 

Fe I HUM ACT) fFLaWi 50 1 iFLWW (50) » lSfD| (3) ,5 kIPI 3} 
TUST fTF {2S jSO) ,TTF (25r3) jTFL(3) jJFLWWI J) , T F L 

KK { 2 ) ^ ^ " ’■ ' " : : '"V 


K K , « , 

ACOEf { I 2 I 
node I NUmACT ) 


T I- law ( 31 




176 


5 7 

tw 


v’’ i ^ 

c S •7 ; 
-b <-■*' 
b^->' 

' 6 J « ■ 
7 q ^7 

7 

7 7 ' 

7b--' 
7 6 '- 
7 ; -»■ 

7 9 # 

y 1 '’‘' 

^ j' '?■ 

H j -a- 


d 7 ^ 
3 B ^: 
a 9 * 

-t « rh 

if:^: 

/I 

f z 

r i 5 ■’ 
9 )- 

C ;', <?:• 

7 - 5 ,9 
^ J u ^ 

1 y i * 
; C 2 ''» 
? Qb 


common K 9 L s DELI J T IME 5 TSlOp ,NN0DE5 
C U M M 0 N P t 3 C Ei !( 2 } j *^ ^ 2 CO j 2 > . C 1 3 G 0 p 2 0 } 
COMMON DUMTi 001 ?tOUM( IGCJ 


/PNT/ 


'H M T 


p <. u 


M 


AM " rn: \ 300 1 2 ) f aErhoh { b p 2 j 


/ A H H th '^ / 0 i 3 D D a I 0 | i I 5 -M i t ? 3 6 6 ^ f F ’>_ ;^ G i i T T b K 
/TYMF/T IHHOMU ^ s n,M5rn';1s FUDGE t ? bM A[f Y 1 20 i 3 ) 


c; 0 rn M c 

C u Mi'! 0 N 

C U r’M’i 0 N f I I 1 . i_ , I i < j — -Wf . . , -tr f « ,'T - -< ■ ' • • ■ • - ' 4 . ~ ^ a. , .1 

CU . 1 rtQM /COHEVP/ ^ IIAT U 0 ) ? A T U 0 > r 0 w U 0 > •? VV ^ J L^ T { 3 f 

C U M M D M / A C T / S'-i H b ^ 3 5 ft Q ) j N h Y U U T ( 3 } b 0 ) 1 N A C r t F U A ( b 0 ) r- ■ , % 

C 0 ri ' t D / H V o / I 0 0 { 2 7 5 3 ) vt li in R X 3 S C 5 ^ ^ f P 0 ft E H U ) t I b p D 1 3 ) , I F U A 0 , 1 F b a { 3 ) 


/ 


0 M3 ) p ei-;20F ( 33 j ! At T 


. OhMQr^ , „ , 

CMM'-iOn / 7M, T D / At! 

E w 0 ) V A 1. £ *n E ( I D b M u 0 H N T u R b N > 

EMUiVAtEi^cEnDUMt 14} v’Rsp, . , , „ ...: 

DATA tut F t'L/27b a s 2?b ft 6 } 27 

I ftpO/J a } p 1/ ’ 

c C 0 N s / 2 3 M ft , / 

N p R A T 0 / 13 ft ft 7 

■I 0 X 997 / ■■ ■ ■■->- ■ ■ - “ ..-•-•■■ . , . 

t T 1 1'’ K / D n D 0 0 / H F. F 1 L L / 0 ft t 0 ^ mD « / I ^ P P A Y / y 5 0 j 0 / 

I che;ck/d/ ■’ : ■ " _ ., :_. _ 

N A C T / N U M A C T / ' / , > 

I NOO E 5 / ^ tr S 1 ? 2 M 5 2 t 3 s B 3 » 4 1 5 M > b ^ b 5 ) 6 p 5 6 , 7 . ft 7 , 8 Mb 8 1 P 1 ft 9 t I Q t JQ » 1 i 1 

A i p I 2 s 6 2 j 13 1 6 3 , 1 4 f 6 M ? I ft j 6 S f 1 6 T 6 6 } 1 7 j 6 7 f ) 8 » 6 8 » 1 9 , 6 9 » 2 0 i 

7D)2i<7M22’72M3,7 3,?-'l,7H,2t,.7i..26, 76, 27 . 7 7 , 2^.7 8.7=. 

7 9 p 3,D eBO i 3 ! - 3 i s U .2 f B2 p 33 ? 03 ? 34 r B4 j 3ft 5 8 ft 5 3^ j 86 , 3 7 

3 8 f 39 5 S V s 40 i 9 0 ,v 4 :. f. 9 I 9 4 2 s 9 2 ? 4 3 ) V 3 » 

100 M i Ol 5 )D 2 jl03 p TQ4 .,100 j 106 t j 0 / p 1 C« 5 i 09 , U 0 5 1 U 
' i 1 3 p n 4 9 

• " - 1 ft -D t i ft i s 1 ft 2 p 1 5 3 3 i ft 4 j 1 ft ft ? 1 ft 6 p 1 5 7 » I ft o s 1 ft V j 1 ^ 0 f I 6 ] 

I 6 3 } } 6 4 ; ^ , 

2 0D?2D1 j2Q2,2G3?2C4p20ft3 2Q^j2Q7s20y3 20 9 , 2 i 0 1 2 1 I 1 -c I 2 , 

~ "sbctiftStlftl f 253 ?25'n2 55s256 j2ft7 p2ftB ?2S9 , 2^0, z6i , 

Z 7 ft 5 2 7 b a 7: 7 7 s 2 7 ft ? 3 7 6 j 2 / 7 ’ / 

$ I V 0 / 1 ij ft / S T V c / I * 0 / E A / 3 3 8 / 


DAT A 
D A T A 
D A T A 
D.% T A 
D T 7 ^ 
0 A T A 
DATA 
DATA 
DATA 


,78,29* 
B 7 t 3 8 

I i T 2 I 
t I ^ 2 t 


D A T A 
DATA 
t) AJ/p 


T Ti K ''< Pi t / I 2 u « / 
ACOE 


2ft977729 

£-19^ 

^0 » 234 1 8 i 6 4 

L-il 6 

8 7 0 7 ft 9 Q 7 

E“ 1 4 ; 

'•on 7 237 i 49 

t -1 T 

;: 97,s3ft97 

E-Q9 , 

£"06 j 

'•O® i 32274ft6 

E-O/ 

5344 i b ?6 

™Q » 1 32ft2ftb2 

L"D4 

2 1215722 
35333673 

F.-03 , 
E-Ci ? 

- 0 a 7 4 7 4 7 8 8 2 
: i « 0 £ 0 

t 0 3 


MAMM I ST/uPDATE/UPT iH£ jTFlW , FLW pPOiAER ,5Klp3AUT2iALTtiFLA<^3i 5Fy 
MAMlCt ST /CHECK / I SPK a Y p I T A Nl< ? RE F !1 LL' ^ • ■ * --- - •‘■ 

DATA VALUES 


i 4 . ( 

: IMTIaLUE IMPUT 

roft-t : : c . . 


■:■■-■• : vCALL START 


I UUM { 5 G 1 - 3 

1 L.ft^M \ 

I b U i } t 1 4 } s$ Q a 

lU:9^ ^ 

MUUM ( 6 } - 3 

1 '37' ' 

• ■ : - Mn?AT i l) « 1 0 2 


T "v A T V 2 ) ^=5 1 ft 2 

117'^ 

1 'A' A T ( 3 ^ 2 02 


1 ? M Aft 27 ' 

1:19-5^ , 

■ i 3 ■ ' 
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0 ^ 

1 

q 

V-4 !?^1 


I I b 

: u« 

1 17"^' 
I 

U 7 O'^ 
I / 

* 1 2 ^- 
Z 2^^ 
linn 
1 7 3 ® 

J tS I.?'- ^ 

I ^ 7*> 

t ^ ^ 

llil 

i b ij 

I -I " 
lb2.^ 
4 33*^ 

t K 4^ 

& ' • 

4 3 ::i 
’ q ^ 
i '. ^ • '7 "{? 

i 3 b 
I 3 V'5 
I'lD^ 

I 4 I 
I 4:;j! -1! 

1 4 -i'> 
i ^^ '■' » 

i - 3' 

i 4 6^ 

« « 7<i 
1 ■■[■;'« 

1 b D f 






j i-^. 4 

• bb« 
ib.6 f' 
5 

4 b.S 
1 b 9 * 

ij ^ v '** 

1^7*. 
I 6 3 » 

I M n. 

1 6 6^* 


1 7 3 
17 1* 
I 73^ 


w SAVE ' INI 11 AL COMPur^ENT JtnPs 
lo' SAVE STAKT TlHL 


(ft* I M n' I A L K t p p t b 5 U h t FOR b 0 I L I R R 0 U T I N t 


4 i t A T L F T •; J } - S u H A H Y { I 4 ? J ) 

■ /^PU' b je 53 00 ■ • *■ ' ■ ■ - - 

5 TifUK J 7=F PCvi?U . 

iD ^T|7^E 
1 i i -C ^ 

■ "3U .55 J-53.2 

p*-* 1C 1 =1>3 
Ti- I ^AT rl i •> I U 
*3 I N FI ) = 1 4 s7 

iQ CO'-iT iMOE ' :■ ;••'—■■■ - -•,;■■ - * : ; 

I : I j « H I 8 P ' ' ■ 

13 C3HT I hue 

■ • ::?^EAii p IRST T iMEpoiNX - •■:*;■ :' ; ;' “ — ‘ ■''*■“;■ ^ " 

REAP ( 2 ) UPT I K£ * fft (N 1 jH = I : 28 ? j X , FL u? )» r ? rpu N 30 t 32 f , 2 , 
fFLliN) «N=;33, H3 i ? TH-jSKIPs IFUAGI ? IbpDi t GKaV > ALT2 
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AtT^ALT2 
A L T I == a L T 2 

iC’^ , 

DO rfi 5 1 i: .1 * iJ T 3 k B IT ' ■' ' 

PH I V I ) » P7 Ml j 1 ) 

I XP M I - 1 

I i‘ { 1 F L V< ( i ] ' G I T <s 0 o 0 1 ) G 0 T 0 2 0 

iAfi liziQ- ' - 

P fkl r i ) “ P { NT '^'H 5 1 ) 

P \ H1 t Z ) > P Un* 4 ! 2 ) 

C i b r + 1 s 3 ) “ 0» 

20; C P*''j ] I T( U E , 3' . .-. 

N ‘i ~ tv I 3 3 (i 

25 COW M NUl 

,SHl rE{6 jUpOATE) 

3t-GlH Tl^^i^!G sequence 


777 CUNirNUE 
T Fl 

; ha 30 I - I , KTURBN 

3G r P L » » W { 1 ) = □ <} 

PU ‘'iQ 1 5 NAt T 

‘10 FLtf;>iK i J J -O ff 


.'oJ Sc-iquinUPE 10 INITIAL INPUT VALUE 


y SAVE INITIAL TUH81NE jtnP 


(5) TURbInE lb initially UPF 

(c^ SET TuRtsUHE Ttl-iP equal to STRUCTURE 

l!^ TENPERaTURE' 

iB SET tubE uiL flowrate lU 2ER0 


W PRINT initial NAhLLIST 


IS OPtJnE YilTHiN THIS COHpUTATION STEP 

bO IF(ITIME'>DELT),l£hUPT1h£} go TO SQ 
T U'vD^ I }=:UpT^^1£-T^N^n 
DO C'G 1 s 1 jMTUHBN 

■ f T F I N)l I 5 I I « T ( D H + 1 J ^ I F L A ft ( II : * • • 

T r L A tV I I ) j r L { I ) 
i r- TSPUI ( I T 

60 ■ CUbT I nuE , 

DO , 70 ■ 0=5.1 fN AC T 

Tr'NH-MjU) =5 itRN^j}# PLAftlJl 

rLA'.^ijr~f L ( u) 

7C CUNT I NUE 

■, ; IF L^‘;G::tl?7.AG:i - 
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ra inteorate total sYSTtM ft-ow 







173*> 



T 1 NM-i - 1 J -UpT i Mb 

1 T'i» ■ 



J : 




MbAu ( 2 ?e:ffD“SPO lUPT 1 

1 7 6 ^ 


.1?S 

true Ml ,iM^3 

17 7 o 



1 r ' i P T ?) 0 Q « C 1 Gt 0 TO 

17 ■ 

--. ---., 


if ^ 1 check 0 ECf-^ i ) UPT 1 

V 7 9 * 



IF n 0 H£CK,eQ- n Bo 

i ’^ 0 



If i AMsMTM, GT<j ^s e ApO 

' 8 1 , s> 



IFiiCHEC^^^tQ'j 1 ) t^PT 

1 S 2 » • 



^30 10 50 " 

iB3«- 

C 



i & i i 

c 


AVEPACE flQTH TOTAju 

4 3 s 

G 



^ - ■ 


BZi 

| IGO TO H 

1 « 7 



DO 9 0 i^^tsNTUReN 

1 


9D 

T F U ? 1 } T r C li if i i } 

t ^'9« 



pa lOp J-l sMACT 

l^Q<f 


i 00 

f Hi, fJ 1 ~ri-AK ? 0 ) 




GO TO 180 - 

I 7 2 !> 


1 10 

DO J 3n 1 t jMTUPBM 

* ^4^ '‘a 

.i- ' ^ 



DO 120 M«i t •'iM 

1 f w ?? ■ 

... ...... . 


1 P { I 3 "T 7 L m*',T T i 1 •> 1 

l9b,-- 


1 20 

G Ji'sT I M VE 

19 6 /^ 


I 3Q 

C0Nl INUE 

r c •>■ *^ ' 
1 ^ ^ ' 



00 I S-n 1 f mact 

t -'i 



0 0 TMO li-ZsMH — ^ 

1 9 9 



^HrV*( J)“Ft7y7i J)-^Tp « 

Z - V ^ 


1 ^ 0 . 

r{)K^ ■T.f-yr- ■ ■ . :'. .. 

r a T r \ jjr 



A -0 W 

oa 160 1" 1 5 NTUf BN -:■• 




Tfu*. ?pr - ( iFLWft fl ) 



1 6 G- 

CONTI MUE 

2 w S * ■ 



Du I7r J-a. jMACT 

7U^« ■ ■ 



FcvvisJ) "{fcwvMjf -a 

2 2 7* 


1 7 0 

GOvTInOE- 




GV I'D 2Q0 

f C!- ■ ■ 


ZOO 

IM£-UPT I H s G 

2 10 "^ 



a gA G ~ 2 7 ■ 

2 t 1 ; 



GO 'i^Oi i-fsNTUPBM 

2 I - 



If u A .V ( U ^0 n 

2 13® - 



T !' L sf C I ) - G a 



801 

POi^t;P{ 1 ■■ 

21-3® 



OU 0 07. 0^1 5 NACT 

?. ! i 1 



^LA-ajl^O, 

V ^ T *?^ 



t L !:* 4 0 3 ~ Q t 

21 2 


8 0 2 

guhTInul ;■■'■■' 

1 

2- 9 ^ - 


« «* 

CUN T 1 NU E 

2 20 - 


2 0 0 

CUNliNUE 

2 7, i 

■■; 'C 



2 2 

V ■ 






CALU. HYDACi 

/ -f 7 '■ 



f 1 " 1 OG 

-'12 3^' ' : 



GU 2 Zq 1 - 1 } MTURbM ' 

Z 7 



C At-H rcg?^v;R { I i ? 

2 7 . 

: G 


* . ' 

,i2.V3’ 



GlNi^a?'" ^OvVERil) 

PvQ» ■ ■ 



I .-!* i ’ f G i 1 0 1 0 « ij. -• 0 1 






l^lf 


tp 


Q 1 1 


9 lEHO FLOr< rOK LAbT TiH^PUlNl 


loJ BUILU ACTUATOK AKkATS 


Id cOHPUIt PUMP cP?- I C I ENc Y »PU»£H A NO 
G A S £ D K A i N f L 0 VV K A ] E ' ' ' 
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■ 

VA 


o 2 
^ 2 
nj 2 

8 1 

►I K 


231 * 
222 * 
233 ^ 
2 A M • 

2 2 b* 

- J / • 

i 3 i • 

i * ’ • 
/ - ^ * 

.■* - 3 • 

: - - • 

• 


2 J 7 • 


213 


22C 


I X P I I ) =? i 
p i . 1 ) apN M n 
P ll.l »2 ) *pnm I J 
GJ TO 220 
C G w T I u c 
i Ap l : ) SQ 

c r« ; * I , M ) s c • 

C> 4l*H»S'*0» 

G . TO 2 } 7 


ia) TURBlNt i:> ON 

W SLT TukoINE. TtnP To iNiUAU vauuE 


1 *» TORB iNt l> OFp ~ 

y StT OtAK oUX"htAT load 
W AND 1-uI»»»KATE 10 2LRU 
\i) SET ^^YUKAULIC meat L0ai3 
W AND-FLOWPATE TU 2ERU 


2:5 


Gr',- LO30IL(:i'U» ' COP.PUIL PhOPEKTlES oF LOOt OU 

compute thermal capacitance of bolLEK. 

tPilTANKU)*^^*l>^ 0 T 02 l 3 
IM ♦C-T, ICOCO. J G'J'70 2 IS 
1 M i 5 P R A Y ( I » c L W ♦ I ) n A N K ( i ) * 1 

(lTA^.Kn)*Ew,l) RLflLL(I)*AAT(I) 

Wii-tiJr f, ATlI»-RL‘='iL.LlI> * * “ 

•• UStOlIJ 

> . = - 2 c ( I j ♦ c E ♦ n ) I 5 F p A r ( ! ) • 1 
“ 2 c » i ) • L E t c » G U T u 2 I 7 
b f 2 0 I I i 


» \ " 
‘ 1 


2 » ! - 


11*0 


c < i • I 0 I i ) « d^*20 M I ♦ I 1 ♦ 0 
2 j 7 C -j N r I \ u t 


w ^ * 


■ 1 * •’♦be 

* '• r • 


2 2 2 C U N ■ 1 •, •; E 

^C: 'i* 


iMiCNT^UEQflPRNTI ARITEtb, 

2 6 2 • 

C 

CUf'r'-JTE altitude 

26 i • 

f 

2 i H* 

C 

A-Tr< (ALT2*-ALTn/IUPTIME-TC) 

7 i> S« 


2 66* 


TO- T I ME 

26 7* 


A L T 1 3 ^ L T 

aod-f 


AL*.\M = alt ♦ C*3cH§006E-3 ■“ 

Zo 9* 


T E R • ■• = . 

2 7c* 


0 C 2 2 5 I * ; * 1 2 

2 7 I * 


TERM X ALTKM»TERM * AC0EF(:J 

272* 


225 COnT I NUE 

273* 


PKEb’J;>xl»0/(TERK***U 

2 7*4* 


PZ- PREbUR* 1 M ,696 

2 75* 
2 7{j • 

c 

f 


f 

T HERMAL LUOr 

27 7 » 

c 


2 78* 


N« ICO 

27 9* 


DU 3C0 I«1iNTURbN 

■ ■ 


iFllAp(I).Ey«OI CALLPASStNJ 

2d i ♦ 

c 

“ 

282* 

C 

GEAR BOX LOOP 

28 3” 

c 

CALC LOOP I N-^ 1 ) - - 

H* ■ 


2 5-'* 


CAwE PLATECCN^l,rU2) 

}hh* 

r 

w 


2b7< 

c 

hyoraueic loop 

2 b ji* 

c 



(fti convert altitude Tu MtfRlC 

!•* FOR CURRENT Altitude 

r«) convert Pressure from a thus, jo p^i 


— W |F TOkjjINL IS UFFiCOHpUlE HLAI 

TRA^bFER from TURBIN l 
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2&9® 

26C 

call loop 

290® 


C ( ® 4 , 4 J ^ 

29:® 

26 b 

CALL PLaT 

2^2® 


J r. S i 0 C p f 1 

2 9 3® 


1 M C ( N ® b » 

29 H * 


r 1 N ® 6 , 0 ) 

2 9 b • 


C 1 .' i ® 6 , ) 

296® 


C '• N ® 4 , 4 ) 

29 7 ® 


C t N-^b , 4 ) 

2 T c • 



F t li b , L ) 

2*9® 

784 

CL’:- 1 I 


3* 


J 

J L I « 
332* 
3!:'3« 
3CH* 
30S« 
3 C 6 ® 
3C7* 
3C 5 ® 
3C9® 
3 1 C® 
3 11® 

31 2® 
3 13® 
3 1 ‘^® 

' * h ® 
3 16* 
3 17® 
3 1 S” 
3 I V* 

> 2C * 

32 : ® 
jy £* 
3 2 3 » 

j2S® 

3 2b® 
326® 

32 7 ® 
328® 
3 2 9* 
T 3 r ® 

33 i * 
332 * 
3 3 3® 
3 3 M ® 
3 3b® 
336® 
337® 
338 ® 
339® 
3 ‘^•J® 
3‘^ 1 • 
3*' 2* 
3*1 3® 
3MM® 
3*<b^ 
3^6® 


• LT • I » I GO 

F Hi* Hi 1)' ♦ 

C ( N®6 » 3 > • 
POrtEK U ) ♦ 

C I N ♦ 4 * «* ) - 

F ( N ♦ M > L) ® 


TO 784 

4. 

4 * 

:s>4b ♦ -c ( N®7 » 4 > 

C { N®6 , 4 ) 

C(N®S,P)/CtN®Si3) 
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268 
2 73 


GO TO 270 
U C ^ t N 0 * 1 , J 

N U J) « N H V U < 1 . . V 0 ) 

N 0 U t- J N 0 ; ® N F! Y 0 U T ( I I N D ) 
rt.NUD.L) »F(N + 6 tO) 

CALL PlaTOC ( ■'‘OD ,NC0t50) 

CO.\T I NUt 

call y i ;; ( N ® 7 ? 0 K I N C Q E; ) 

P ( iN ® 5 I L ) ® F ( ♦ 6 I L ) 

K. i )trU-fS 
K ( 2 ) * L ® 7 

CALL 

call LOOPfN®U> 

I F ( L ; N® 4 • 3 } • • 3 * ^0 TO 

ti' ^ i i , . M 1 \ .r 1 


I F ( L ; N® 4 • 3 ) • L t . 3 > bO TO 27b 

J F ( i SP4 A Y f n ♦ 1 • alt . Li • 10000. ) GC TO 27 Z 

C A L T P A N 3 ( 8 ♦ N I 0 ) ” ’ 


272 


2 7 72 


27 73 
2774 


273 


7b 


CAL'- T P A N 3 ( N 8 ♦ N ® I 0 ) 

CALL 5 P •'{ A r ( N ■*’ 2 » < «< ® 1 3 » N ♦ I , N ♦ I I ) 

G I' T C 2 7 3 

CUnTWvIUE „ 

Ir(1I^'L♦GT*•0l6687) GO TO 2772 
C < H ♦ 1 G » 3 > = 0 ♦ 

CtN®9,3» = CUn-*-S»3) 

C J r C 2 7 7 < 

’rllTA^MUtNE..!) GO TO 2773 
C t N ® 1 C , 3 ) * C < N ® S , 3 ) 

C I N ® ? , 3 J := C • 
kj 0 1 0 2 7 7m 


i+jOfN ♦12^674. f ♦C0»''.00b» 1 i ) 


28 


call MODIN' 

c 0 N r I u i 
‘ 1 N ♦ 1 3 t L ) * F ( N ♦ 8 » L > 
r U4®9 , L ) c F ( N® b r L ) ■ 

call HYDFL0(I»N? 

call B3ILP(N®2,:>.®; ,N®1C.N4 1 1 ,P2,iAi5TVC,bTVu) 
C 0 N T I N u' L 

li ( i ) =L4? 

I 1 ( 2 1 3 N f 1 I 

CALL M I X ( N® I 2 , 2 I I I ) 

G'J TO 28C 

CONTINUE 

call TSANS ( N®4 ,N ®8 } 

T R A f'* S { N ♦ 4 , r^i ® 9 ) 

T K 5 ( Nv.'*' 4 » f>* ® I 0 ) 

H Y D F L D { 1 » N J 

BO I L? ( N>2 , N® I ,N®1C |N*l 1 , 

TRA'^b»fY^4,N®i2> 

PASS (N®3 ) 

PL/,T £C t ^‘ + i 2 ♦ N® 1 3 ) 


Call 

CA'-L 
CALL 
CALL 
CALL 
CALL 
C A L - 


’2.Ea»STVC,Mvu< 


J I M 
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o ^ 

^ 2 

i? 



3M7* 

3*’9» 
3bG* 
jb I <■ 

3bJo 
3 b « 
Jbb« 
Jb 6 « 
3b 7 * 
3 S b ♦ 
jb?* 

I 'Is C * 

36 i • 
36ii* 


3u3 


3 b w 
C 


call TRANS(N^13|N4M| 

c tv*53 

continue 

CAuw F UEU TOTFUL »P2 ) 

C A t- ^ L B A '« 

CALLPLlOT , ^ 

I F ', I D U ^■. < 2 J ) • L E • c > 0 C TO 3 5 0 

call SElE-CT ( 1 MV » 1 Mi , I NODtb » I 0 ) 
C ALU TL I P 


*» COMPUTE Full ANU LJ«ERvjT LoNSUmLu 
00 Ht/vT bALANct Tu DtlLKMiNL LKhOK 
.*» bToRt UulA FUK ut:>iRE0 PUuTb 
.e» IF NO PLUlb Ut.blNLL, ;> N I P To bLLE.LT 
!•» PRirjt NULL DAfM Alvju InL^^^ME-NT |IML 


If ; *uS. IPRNT ) '^K I TE: ( 6 ,UPDATE) 

IFlTI.vE.l.c*TbTOP) GO TO 777 
Call PRTTa3 
K L T u R N 

LNU 




CO^pILAT IQNI 


NO OlAGNOSTlCb. 
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I * 

r 

SuoROUTINt 00lLPtMl,MIl,M2t»l2i,P2,tA,5TvC,iTVuJ 



c 

VARlAStE N'AMt: 

DESCPIPTIuim 

U IV I T S 

H ♦ 

b* 

c 

c 


CULF 

Constants for olte'^minInu hlat uf 


6» 

c 



vapor I2ATI0N FROM TEMFLKmTurE 


7* 

c 


C K T P A 

Critical pklssurl ratio 


6 • 

c 


OLLTAP 

UiFFEREigCE 6E7AEEN CurRLnT AHBIlnT 

PSiU 

V • 

c 



PRESSURE AND LAST SOLuIluN 0^ dOIlLR 


ic* 

c 



PRESSURE 


1 i • 

c 


'0 El .V 

vmTer BuilLu a wav this TImEjTEP 

utJfl 

12* 

c 


E A 

Effect i v e ok i f i ct. area 


1 3« 

r 

s. 


Flag 

FlAu FOh TYPE OF FLOW 


1 H ♦ 

C. 


frst 

FlKST Term of major O I FF ukEI.T I Al ewn 


1 b » 

c 



BEING SOLVED 


i 6* 

c 


Gamma 

K/.TIO OF SPECIFIC HEATS'FuR STEam 


i 7 ♦ 

c 


H 

heat oF VAPORIZATION 


i a ’ 

r 


Fl 

tiolLER PRESSOR F. 

PS 1 A 

i V • 

C 


P o U L S 5 

pkessuRe guess fur itte^atiun PkuCESS 

r* S i A 

2C* 

C 


P i 0 0 T 

Time derivative uf pkeSjUke 


2i* 

c 


P I OLO 

Pressure solution last uump cycle 


2 2* 

c 


Pk 

Pressure ratio 


2 J* 

c 


ST VC 

steam Valve closed flag 


ZH* 

c 


ST v: 

Steam valve orEn flag 


2b* 

c 



satj ratio temperature 

Utu K 

2b* 

c 


A r, 3 0 T 

aolLIiMG rate 

L b M / H R 

n* 

c 


wnOOT 

BqILING KATE 

L t> M / M ; H 

2 6* 
2 V • 

c 

c 

lit 

- lU«F oil 

Inlet 


JO* 

c 

r’ 1 1 - U U 3 1 OIL 

Outlet 


3 1 * 

c 

H2 

- HYOfxAULlC FLUID INLLT 


2Z* 

\ \ A. 

c 

r* 

M2 

2-hyd«aulIcfluiooutle.t 


J • 


L' I h c 3 

ION C 0 5 ; F ( ^ I 



3b* 


COf-fON 

K ? L ♦ DFLT , T 

; ;;e » tstop » nnooes 


3 6* 


C 'j i-*. 0 N 

P 1 3 D C j 2 ) 

(3!::0,2) tC( 3C0.20) 


3 7* 


C 0 n M 0 

DUm ( 1 OG I 1 I DL'm n 00 I 


i a ♦ 


Cum h 0 N 

/Clmlvp/ I 

Wat ( 10) t >. A T ( i C ) » Drt ( 1 C ) , Wm TlF T 1 3 > 


3 V • 


C U M M 0 N 

2Ai<Ra‘''/ G(3ucM0).TlNlT(30DI tFLAGilTlLK 


hq* 


Common 

/TYMt/TlM5UM(3l,A“bNTH,FUDGL,bUMARY<20»3> 
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^ I • 

V / • 
1 

4 M » 

-3* 

H6* 
*1 ?♦ 
Mb* 

s 9 • 
3Q* 
Si* 
b 2 • 

5 j * 
b M * 
bS* 
b6* 
b /' * 

5 B • 
b?* 
to • 

6 I * 
i> 12 • 
6 .4 • 

M * 

t n * 
6 6* 
67* 

6 B * 
6'J* 

73* 
7 : • 
72* 

7 J* 
7 i • 
7b* 
7 6* 
7 ; * 
7 . • 
7 9* 
63* 
6 1 • 
02* 
ri 3 * 

•j V • 
d :>• 
0 6* 
b 7 • 

*5 b • 
d V ♦ 

V'j* 

• 

9 2* 

V J • 

s» 

Vd* 

96^ 

i7* 

9b^ 


C 

c 

c 


^w0lVAuE^^C£lICiUM(6>,N//ATJ ' 

1 meins I UN l^EY ( 1 2S ) - 

OaTA Ci^^A V/32 • 1 7M/A/7HM9 . 73/8/ i M . 92B5/CC/62 • btt/ BOILP 

OaTA GAmNA/ 1 •31/K/8s*b&0'7/ 2 Of 6 

OaTA CCt.^ / 1»49S28 m1 I C3i -10«75Mn£ ;3 q, 

lt&S67MeO t-U3» *-1.0192200 t"06" 7 

Ca rt £A#3toC3* 

~ GAMrtA/{GA><MA-:,) 

C«TPf^=(2./(GA|-:MA^l. i )**£C 

I n c.r=cg 

^ L A G * 0 • 

P 1 OLD *G ( N 1 , I ) 

Py sP2 

U I S T V.C • L L • 0 ♦ ) G 0 T 0 9 
0 L L T A P = G ( M I , n - F 2 

I h lDLLTAP,L£.-l.b)G(M2 ,I)*P2-I.S 

P 1 U L 0 r G ( f • I , 1 ) 

Ollta3*piold-P2 -- 
PV“P2*STVC 

lF{QLLTAP,GE.bTvO)KE;Y(Mj )sl 
iFlUtLTAF.LE-STVCjr.EYlMlJxO __ 

IF iPlCLU.Lt..2l4l )^LY(Ml )«0 : 

IF IkCy (M l j .tP.O) GO TO 2&0 
9 CUNTINUE 

compute Saturation tEmp FR0M'“Ah8 i ent pressure 


TE!iP5xA/(b-AL0G(P9)) ■»• CC 

Ji-* I • 

i; • = 1 • 

TErkYtA05(C(Ni,3») 

I ?• ( T wR.-^ Y . LT • la* ) DL«0 

TLhRy*A8S(C(M2,3M 

Ih 1 TE’kRy .lT . 10* ) DH = o " 

1 r ( p I M 1 , K ) . L T . T E N P S ) GO T 0 2 9 
P - L 0 L F n ) 

U U / 3 i a Z t ^ 

73 “>r n * COtP(I;* 
t^MLI a Q, 


I^ 13L ♦LL *0) GO TO 2 
Ua r.C P I aC ( M I , 2 * / C I M 1 . 3 ) 

EXpi-UAt^cPli 

tkml2 = 1 . - :Rp<l I " 

Ou * C1MI,3 )/H*TRmL 2 
2 If ( uh.le.qi gu to s 
UaoCP 2 a c ( M2 . 2 ) /c ( ,m 2 , 3 ) 

exp(-Um.*,c.P21 ^ » 

T h fi P 2 » 1 . - 7 R M H I 

0m*C(M2,3)/M*TRmH2 

*♦ Ff.bT=(0L*f(Ml.L)^DH*FiM2.L))/CA - 

tl«(GAMMA-I.)/GAHMA 

E^2 = 2. / gamma 

c. b = { G A M A ♦ 1 • J / G A N H A 
EMa(GAMMA-2.)/GAHMA 

ES= ( - 1 , /GaMMA ) — 
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9 V* 

: cc« 

i c i • 
I z^* 

i 'j 

1 u *1 ♦ 

1 !:;b* 

i Cfc« 
1 . 7 - 
1 : ^ 
i u s • 
lie* 
1 i 1 ** 
1 i ^ • 
I 1 J • 
n 

1 15* 
1 io* 
117* 
lib* 
119* 
U*G* 

I 2 1 « 
122* 
123* 

I 4 ♦ 
1 

1 / 6 • 
12 7* 
1 2b* 
1 2 9 • 
1 JG* 
I -if 

1 i j • 
j J M • 

1 ♦ 

1 J6* 
1-57* 
i 3d • 
1 3'- • 
1 • 
1^10 
i S 4» 
I ^ J •» 
!><■*• 
I M 3 • 

I 

I H7* 

i H M ♦ 

I n 9 * 
IG-* 
1 b 1 ** 
1 b2* 
I b3* 
1 b4* 

: 36* 


i T T t R = C 

^*bUt.5S » PI OLD 

C J i; T I N U t 
-<Kap2/P0UtLSS 

Pl-PGuLSS 

Part = fa-ALOG(Pi) 

U- K i G A / P A A’ T * C. c 
OLiuRiG = P1*(PART**2.) 

; 1 MUPaC ( I » I > * A/H _ 

Check conditions for choked ok unchoklo flow 

oNCHoKEO FlOw ' 

U'tKR,LL«CHTpKJ Go xO lOC 

bCf.D*lGRAV*2**GA^HA/R/»GAHMA-l. ) )**J-l» / 

' FR5T*^CNQ '■ ^ 

T(JKIG=( (Pl**I2*El) >*(P2«*L2)-(Pl**t.l )*(P2**£3M 
1 F ( T 0 h I G t L T . 0 ) GO To I b 1 

iF(ITXER’GTtC)GOTo32 . 

Plu0T*(FRb7*CA-CDL*0H)*e0Hl0"CA/SCND»S0RT(T0RlG/8oKlG))*Dt)0Rlu/‘^ 

» T I H Q P 

PoUl-SS F1D0T*uElT4.P1ClD 

ITTGK*ITTER*1 _ ___ 

TO 75 

Continue 

f*lGOT C I P 1 -p I OlO ) /oLL T 

*f^UOTT:DL*F(Hl,LJ*JH*F(*l2*L)-IOL ♦OH )_• t B 0 K I G / - T I M D P ♦ K 1 D u T / D o u K I >» 
irl*ri*DOT»LL«0) I^T£r\*70 
i F I ,. p D 0 T . L L . 0 J G 0 T 0 2 S 0 

YPKrS-.vKT(T0RlG/80KlG)*n0L*0H)*B0KIGtTlMDP*PlUOT2uoOKH,)*5CN0/CA 

OELTYsYa-YPR _ _ 

ITTL-^ * ITTLK+I 
YC=aBS(Y3) 

i'" ( rC.LL*Dl CP£C>^=1 ,£-S 

l?(''CfLL*U^ODT0 3j „ 

CHb.CK^ABb(DLLrY/YCJ 

C G I < T I N U i 

If lCH5Cf;«LF» •GOGCl ) F L 7^ G « I* 

I F K P£CK . lF. . . vOCC 1 ) GO TO 150 

I F l ! T TLR • uC • ) GO 70 20D 

DToRIg = EI*I2**(P1**E*<)*IP2**L2)-(P1*»E5)M'^2**L3M 
uYTK'1]x:(1,/2*)*< 1*/sWF<T( roRIG/rjORIo) )*(D^uRlo/bORlG) 

i:YTAP2-(l./2*)*(l./:,0KT{ToRIG/30RI^3))*T0Rlvi*(A/0B0KiG/tB0KlG**2t)l 
0 Y T R H 3 « » 0 L * 0 H ) ♦ ( A / 0 i, 0 R I G ) 

DYTRF'MsTlf-iOP*! ; ./D3oRIO/DLLT*(2.-PARTl*PluOT/Pl/OuOKlo/pAK[ } 

UYuPl= DYTt<f1I-UYTKM2*ICYTRH3*UYTRM4)*SCN0/CA 

7 = 0 Y 0 P 1 _ 

DclY^ 1 »:qGeT Y/V 
P«UES5 = PGli£S 5* O^LYpl 
Go T C 7 5 


choked FlOa ^ ■ ' 

ICC- T-fvD=(GHAv*G^HMA/Ri#(2*/lGAMHA*l.) (GAmMA*!. » 1 

I f II T TER • &T . 0 ) gO To ICl , 

PiDOT*(FRsT*CA-bCKlG^I'’L*DH)-Pl*CA*syRT(ThKU/PCRlu))*UbORIG/UHDP 
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i 6^ • 
1 & J • 
! i 1 ♦ 
it'j* 
16 6* 
1 o 7 • 
J 6 o • 

J D y* 

i 7 0 • 

1 7 i * 

I 72* 

* 7J< 

i73* 
i 7 to * 

I 77* 
■78* 
i 79* 

1 D* 

1 b i ♦ 

1 b2* 
183* 

2 to H# 

‘OS'S 

1 e £» • 

18 7* 

J 86* 
lo9* 

! VC » 

1 9 2 • 
l?2« 

I V 3 ♦ 

i 9 H ^ 
i T 3 

i V to • 
i?7* 
i 9 t: ♦ 

1 99* 

2c;d* 

2'- l * 

2 w 2 • 

2 v3« 

2wS • 

2bi* 

2 0** 
2C7* 
2pb* 

2 u V • 

2 10* 

2 M • 

2 i 2* 

2 13# 

2 i M* 


C 

c 


c 

c 

r 


4 I ' t. « e I T 7 £ 9 * , 

s» ^ r C 7 b 

IbJ 

* (pJ-P 10 lC>)/ 0 I^LT 

( •i 2 tL)“lOL^DH)*(uORlo )-1 I«oP*KlJwT/UtiW?<Iu 
It I »•' ■' ' u' b’ T ♦ L b • 0 ) & 0 To 2 30 

7 r r> U « j ♦ / 5 i W T I T rt K 3 > 

2 £ = K 9 br»ThRD . _ 

7 ^ U H I b « ( P I • • 2 • J / 3 0 R I 'j " 

Zf-b = SwKT{TZC«I( 32 ^ttoL^OH)*BOMiG*TlMDP*PlDoT/Ot>ORlb)*ThKD 7 ^A 
UcLTZ • 2 Q--uPR 

ilT£R=ITTt^*l __ 

2 C = ABs<Z 0 ; ^ ^ 

I ZC.uC* Jl CHc*^-i=' I .e :-5 
lF( 7 t*L£» 0 > TO Hi 

CfK»c 2 = A 85 ( DELTZ/ 2 C) * 

H 1 4 .u;«i T I NUE “ ■ 

uichck 2 *l£.»:ooi; flag * 2 , 

If I C.HCK 2 • lE • •Lcun (jO TO I^c 

IF ( I TTtP»uE* 5 Q 02 GO TO 20 Q _ __ 

02 TRiM = n./ 2 *M(U/sORT(T 40 Kl&n*( 2 .*Pr/BuKib-UA*(Pl** 2 *M 

• /lDeUKlG*( 3 oKIG«* 2 *H)) 

D^T 9 M 2 ^( 0 L*U^)*IA/ 030 KIg) 

03 TAri 2 sTlMOP*(J./U 8 oRlG/D£LT^( 2 --PART)*Pluul/Hl/OeoKlb/pAKTJ 
0 ,:UP 1 j» 02 TKP 1 + <D 2 TkM 2 *DZTKm 3 )*THHD/CA 

J 

LlL 2 P 1 *DLlT 2 /VZ 

PGuESS«PCsOESS + D£L^P j , , _ 

Go TO 7 b 

2 C 0 ^•KiTCf s» 2 lC} ITTER 
Pi 2 =*Pi«P 2 

2 iQ F 0 y?’AT( 20 H nO SOLUTION IN , I 2 , 1 2 H _1 T Tc.KaT I QNS )_ 

L A L L E .< I T 

coNPOrE saturation temperature 

ISO TtMPHajoHlG 

GO TO I b 2 
Ibl Cb-JTINUE 

I T T F. R = 6 V 

P 1 -P 2 ■ ' ■■ 

Gu TO 250 
152 v.Ui<TlNUE 

P '* '•• 1 t L ) c T L P P K 

P'- 12 »L)* TEKPK ■ " ■■ ■ ■ 

G ( (1 1 , 3 ) a h 

G < M I , M ) = r. ;i D U T 

P =» C 0 E r I i ) 

DO 9 C 1 = 2 ,R ™ 

9 C H «n+ CUEF ( II *TEMPR** ( I - 1 J 

COMPUTE T.AtER COnSUPEC _____ 


Dlu.» a rtPuOT*OELT 

f UMl ,L)=TRML2*P(Mi,U*TRMLl*F(MI,U) 
Pl«22,L)*TRMH2#P(M2.L)tTRMHl*F(M2,L) 
95 Continue 
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2 1 5 
2 I 6 
217 
2 I 8 

1 1 9 
22U 
22 1 
ZZl 
223 

22 M 

2 2 5 
226 
227 
22b 
229 
23C 

23 1 

232 
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23 H 
23b 
2 36 
2 37 
336 
2 3? 

2 MO 
21 1 
212 
213 
211 
21b 
2*^6 
217 
21b 
21 9 
2 = 0 
2b 1 
2b2 
2b3 
2^1 
2 3 b 

1 b 6 
33 7 

2 3b 

25V 
2oU 
2'^ I 
262 
263 
ibH 

26b 
266 
267 
2 6 6 

269 

270 
2 7 i 
2 / 2 * 


Go T0"^16>3 
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Ou I 6G I =* 1 » 1 3 
I F ( h 1 * fM L » 1 V* A T I I 1 ) 

GO TO 1 tt 0 
Continue 

N A T « f>< >v A T ♦ I ^ 

1 »•. A T { N A A T 1 « I 
1 * fl ♦. A T 
0 n ( I ) * D F. L ‘71 
Uu l?C ;=liNWAT 
A A T ( I 1 = A A T ( 1 J * 

U A ( I ) nO» 

IF U lAr/Gt* I T IMSUMl j ) -OaND) . ANO, T ME.LE, ( I j Auu| I 

*IM TlnclGil (tIhsImI 2>-bANu1 . ANq • T I ME . U t . ( M ibUM ( 2 ) ♦o A nu ) ) 
*lMTlMElGElcTlMSUMl^)-bAN0),Ar^6,TlME.l-E*<Tl«3UM(3|*BANO)l 

* bUMARY I l; . I I=V;aT n )-(5UHARYU5. M^SU.MARY( lo. 1 ) ) 
v<ArLFTl I IbSUMAKYI 11, I 1-IaATI n 
C u N T I rj U E 
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Drt( I ) 


2lV 

2bO 


2b2 


C I M 1 , 3 ) 
C 1 f'2 » 3 1 


2b I 


C I Ml 1 . 3 } « 

C( 123,3) » 

Pl2=^i-H2 

Tf<i,uUT a WMD0T/6C* 

Hi 1 , 3 ) - A MOOT 
G I i 1 . V ) 3 TEMPS 
G ( M 1 , 1 } a P 1 
( M 2 f 1 ) a P i 
G 4 M I I 2 ) a P 2 
GiM2 ,2 ) =P2 

0(11 I 6 ) « P 1 0 0 T 

P E T 0 R r, 

PIUlO = P? ... 

CChT I \UE 

CALL PLATcC (M l ,Ml I » 

P ( fi 2 I K J = P ' M I ♦ U ) 

CAUL plate { M2 ,M32 ) 

P(rM ,L)«P(M2rL) 
p I a 2 

iMbTvC*GTO> GO TO 252 
if(P(FM,E)*LE.TtMPb) GO ^0252 
^MOOT xc(m 1 , 1 )*(P(Mi ,L)-TtMPb)/M/DELT 
0 I f1 J , 1 ) a A M tJ 0 T 

G V 1 1 , 5 ) a M 

P(M1,L)* TEMPj 
P(.12»L)= TEMPb ^ 

OLLm * ;.MqOT • dFL» 

OU TO 95 

C u !■( T I N G E ^ 

Ifl5T'vO»LE*C*) GO Tq 251 
P 7 a P .3 ♦ b T V 0 

lt(C.CMl.l).GT.l»7l G"''l>i'’S[VC *P2 

P V ~ G ^ M I ,1 ) 

^^1aT*a/(CC-PIP 1 »E) l^B 
P T A T a E X f’ ( P 5 T -A T ) 

PlaAPAAllPS7AT,P9) 

COi. T I r; JE 
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273* Pl2cP:-p2 

2 7 H # ”■ 12 . 

2 7 'j • A h 0 0 T c C3 . 

7 7 5 «• G ( M I , i; ) tr V* rt D 0 T 

2 7 7 * ^ 1 I 6 ) = P 1 2 ^ 

2 78* ftNijUT ® *iiMOOT 

2?9» &(Mlt9)aT£P^P 

2 s C ♦ C3 ( fi j » i ) ^ P I 

2iil* vjlrl2tl)=^l 

2 >5 7 •' ^ t f'> I t 2 ) * P 2 

2 .i 3 • C> ( i i 2 • 2 ) - P 2 

2 o n « G ( M 1 , 6 ) = 1 • E “ ^ ^ ^ 1 ^ ^ ^ D E L T * * 

2 I 6 *' P E T 0 R N 

2 <; 7 • E U 


jluo OF compilation;- NO DIAiNO-IIOS. 
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i>oMHOuTlNt. OH'AA 
variable nahe 
Datum 


DtSCRIPTlON owITb 

array of up to five paRmMlteks u^ Data 
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H 
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6 
9 
1 C 
i 1 
12 
I J 
i H 

15 

16 
1 7 
1 a 

1 T 

2 G 

2 1 
22 
2 J 
2m 
2 b 

2b 

2 7 
2d 
2'^ 
JC 
J 1 
i 2 

3 3 
3s 
35 
3 b 
37 
3a 
3v 
*^0 

A 

- 2 
3 
s 

S S 
“ b 
7 

s c 
*' v 
S 3 
a 1 
52 
5 J 

= M 

t, ^ 

5(S 
5 7 

5 a 

6 D 

6 I 
6 2 


OPAR delta Y-VALUE PER INCH 

OrlME OeLTA X VALUE PER INCH 

IPLT node NUK.bEH OF PARAHETEk 

uPLT TyPE NUMttE« OF PARA.’.tTEh 

KTRL Fl ’'(5 to CCHTROL t'IRLCTlON OF PLOT 

NiP COUNTER FOR OETEhHlNG IF POINTS nEEu tO 

bE bXiPrEo 

nwplts numbeR cr plots mfok x) 
rjpuTS Number of plots 

NSET ' NyMUER QF TRACES ON CURRENT PlCT 

nsEtsv Total homier of traces ih okouP is max^ 

MK iMjMtiE!' OF traces ON A PlOT 

fviuM Number of points allctTlu per TnaCE 

PARC bT-'‘‘RT I NO VAlUE Or Y-AXis 

stp-’E Aj^ray of x-valuls 

riTEL Title of y-axis .-or cuRrEnT trall 

Tq St ting value Or X-Axlb 

X A X I S length of a - a X 1 S ” 

XhAX riA.XIMuM VALUE For y-axIs 

XrtlN HjNIflUM VALUE FOR Y-AXiS 

YTILE Ar^RAY op Y-AXlS TITLES 


h*< a 
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• ijUPPoPT routine for calCumf Plots ••• 

Parameter NuM=ibCc 
in’eger y t I le , X , t 1 tel , plTseg 

Cu.HsOn K » L I DElT , T i , TSTOp , NMODES 

LO-iNCrs P I 3CC • 2 ) . ( 3c3 » 2 ) t C ( 3C0» 20 J _ _ 

Common uUk ( I GO ) , I dum U CD ) 
c U 0 r. / L U .'I P 2 / T I T L t ( i 2 } . i I G t 2 5 J , IV E E ( 2 5 ) 

Co Hr, On /P55T/N?lTs» ;PLT (2b5 »w'PLT< 25) tPLTStvnTsTP(b< »XaXiSiS1 • 

• YAXlS(c,),N0PL0TtSJ,NPLPTS,NTK(2SJ,IrtKAUR,iRUA0r< 

DIF5 ENSIGN DaTUM(75Cg J »xMaX(5) ,XM1n(S) iOPaRISI »PAnu(5< .TSfnTlj 
DIMENSION ALF.Ia ( N’UM ) , bET A ( NUM ) , GAMMA ( .NuM ) , Pm i 1 NUM ) , 


THETaINOM) ,5TlPEtNUM} ,RESn2S) 

Oi:iE^SlON YT I !-E C ■’ » 23 ) » :ITEl<?,5< 

equivalence (3aT'3M(j ) ,ALPhA) »10ATUM( ISCl ) iULTm) ,(uATUril3H 

♦ } , (DATUM ( H SCI J J ,» Datum (600 1 ) » theta j 

Data YTILE/I2't2h fluid temp at node luLG 
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coMpOf^ENT Temp 
2 Loh Rate aT nuoe 

3 --UL OTU/Hr) 

M ; LoS ) 
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aT 

OF 


S N V LAS) 


6 
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B 
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A 


(DEG K ; J _ F 

mE'a I 

i«aTc.k remaining 

COfK DF H 20 aT nouc (Lo/La 

aT node (Lo/lB oF UkY vjAb) 

(Lb/L8 OF 0'<Y «AS) Lu»'(G uF 

OF DRY GAS) mEmIER PO#»tri Af uDyt 

Part pkes OF h 2 o at Nuoe (PsI) 

Part press of c 2 aT node (psn 

aRTPRESS 0 Fn 2 aTN 0 DE (PSI) MmRTPRE 


CON Or 

at node 


N 2 


( 3 TU/HK J 


C 0 N c OF 
aT node 

( L a / L B 


02 


DP C02 aT node (MkHL) 

c N 0 U E V B T D } 

D I a T u / H .r s 0 F r ; 

L aCCUM energy 

F Fuel remaining 

G RHESSURES (PSlA> 

h ( P s I A ) 


ACCOM FUEL 

aT node 

' L B M ) 


hEATtK Enc.R^* aT 
HEAT aT UO^c 

aT NuDE (LbS) 

( pP-mR i 

AMu I Ln 1 ♦UU I lEk 
OU li-LK PRLSbO.RE 


n: 




J / 

CATA X/l/ 


p, 

o 

^05 


I u c ♦ 
I U i ♦ 
1 C2« 

J j i » 
i :-t* 
i Jr?* 
1 C- 'i • 
1 j 7 « 
i ^ IS • 
I :) V 

1 1 c* 
I A 1 * 
1 1 2^ 
11^* 
I I 4* 
i i 3 » 
I 1 “J* 


2JC FuririAT( lH3.2MX,l9HtsT, PLOTTIUG TIMES ) _ 

Caul cDaTE {T iTLEt 12) ) 

T:3TRT^)=»^^^^H2'^) , 

Call SCAUTSTP(i),T«;TRT(l),XAXlS(l),OTlME,Tc»thR) 

KTkL « 20 ^ , — . - - 

If (XAXISII) .GT. 9) KTRL lO 
KTRL * 13 
1 5 A V A L' :t I R D A 0 R 

N.iKLTs ** Nf’LTS ♦ ; . 

I L» I V « C 

OETc-SMINt I ^ Any DATa points are to bt SMP^’CU 

" NiPal ■ 

63 Ir (NPtPTS / 'MP *Er« ISCo) CO TO BM 
IOlv~TOlV+l 

If '. lOlV ,CT. 8 )C -0 To ^C-O ’ _ 

ir ^ '4 I P • 2 

63 FuKf4n2CH3 THE FKeO. OF PLOT I3,2QH IS btINv, oOufaLLu TO 13 ) 

C0T003 

AM N i p M 1 = i> I P - I 

^L> - I T ( ( NPLPTS^DT I ME > / t N I P*2c* t T 5 T P ( 1 5 - T S T K T ( 1 ) ) 

Ir (Mo .LT* \ ' mD 3 I 

DEiLRMIf^E N’JhbtR OF PARAMETERS TO REaO 


ICC .NTkC 3 NTk ( a i 

group UF_. b (MAa) 

M 1 ► tNTRC-b ) I i2 ,3 

1 '• S A V ~ N T R C 

: F *JTP 5 JiTrC^X ) *EQ.O ) 00 To 2 

NTrC-lTpC + NTR ( NT’^C + X ^ 

0 0 TO M 
3 N 7 R C - N b • V 

2 CONTINUE 

RE AC data “ ^ 

«iiJISNuM,^LKOP uATAPOlliTb INPLOT 

Call RREAo ( lROACR,f^EST,UNPLTSi istat) 

M3 i r ( I 5 1 A T . E . I I 0 0 TO M a 

(RrST(i) *LT. TStRTUM 00 TO M9 

SriMElJ) = RCSTU) _ _ 

f i = '■ 4 T R C " ^ 

^ I M ST I MeTo) ^ *0e! fST^nll^OO TO 77 U HAV& ARRIvEO aT lNO oP L^^T mAnGu 
M 9InOADKsIRDADR♦N^JPL7S 

IF'IROADR -OE. 'VVraoR) OO TO 77 W HAVE AkkIVEO AT ENu QP OaTm 
I F t N I P ^ 1 • L I • 1 ) 0 C To MM 

iRUADRslROACR-^NlFMl^r^NPLTS ^ , 

IhllPOADR .OE. r«-RAoR} GO TO 77 C HAV^ AhRIVcO Aj ENu QP oATA 
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i >*‘3 
I 3*- 
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prewar: y scaling 


Oo 6 Jv'«1*NTRC 

If ( AES < B 1 Cj t K n ) . 6 T. I .E - 1 0 . OR* A 0 S TrtEE ( K 1 ) UuT • 1 .E-iO I 

X M A X ( J J } = - 1 c c : c 3 • _ . 

X M 1 N ( j V* ) 1 : c c c c • 

oo s I I - 1 , J 
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AK A X ( J J * A^’ A X I ( X»^AX ( J J ) ,DATU« ( JM 1 • 1 SOO^ I I M _ _ _ 

AJ-, I fi ( J J ‘ » an*' I N I ( a?m N ( JvJ ) , uatu^ ( jM 1 ♦i5oc-*-iin ' 

5 Continue 

•o 0 TO Id 

2C XiiAX(JJ>=BlGlKn 

X /I I N ( J J ) ~ A E E ( M I 
1 G 1 C 0 f4 T I N U E 

LALL 3CaL(XMAXIjJ) iXMlNiJj) ,YaXIS(1) ,DPaRIJJ) »PaRoIJUJ ,E^K^ 

8 CONT I N'Jt . . 
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3 T£Mpa(n»2),?'LACUM(263),FLO„n2oOI 

Cd.VHON /act/ Nh yD I i , so ) I NHYOUT ( 3 » Su ) I NaC T , FL*. ( so I 

0 1 H C N S I 0 N L I N 0 D E ( 4 6 ) 

LaTA SHaPE/'TS/CMISs/^S/ 

DaTA SFaCe/T* 3* » *3«6tC'* » l6»w»0« » 18***tu» »2c»b»u« «2j«2»0* »2*i«b»3* » 

*26«*4|S*C* »2R"6t3*0* « 13*6»0* r l6» »C* ♦ 17*S»C* »20»oi0« 

**C* *23*2 7 3 * u * j26**^/ 

U i N‘ 0 E X = 0 
I C U N T I fJ 'J c 

L li L N T = c _ 

CuiMl = i,33 

L 1 f. 0 0 E ? I) = C 
l:Nu LX - L 1 N D E X ♦ 1 

1 F ( I E!,0 . tiT . C ) GO TO ! 03 

RlaI; I H , LNQrt IC: J L I NUh I L I NOEX ) iLOGF C L I NDEX ) , KnOuE ( L iisDtX ) ^tiNUUL , 

♦ -LnJ:i,lTH(l:nUEx) I I b I G ( L I NbCX J 

< N 0 0 E ( L I 'J J L X ) s N J 0 L ( U I N D E X ) ♦ 2 5 0 

L N C N T rs L C N T ♦ I 
LN a L 1 NOoC ( LNCNT ) 

U ( L , E W * 0 ) GO TO 12 
'♦ u C i . T ( L fs J = i\ L C M I L 1 
N u - H L C N T ( L N ) 

••'ll L IN- f LN , NL 5 =L I NuEX ■ ' 

Go TO II 

L '> C N T = L N C N T * 1 ~ ' ‘ ■ — - ~ — — 

Api7E<6f3)LlNUMiLir<DCX) ,KnODE( 1. INDEX) i (LlNUuEIh) »M*1 iLNCNJ) 

* 0 K A *!■ f b X , 2 I S , 3 3 I 3 ) 

G L TO i 3 


130 L I . u E X = L I f - D E X - I 
K I T E ( 6 , M ) L I N J E X 
M EuKMA7(lHii3lH '*»♦« 
• LINES s,Ib/) 

Du iCl V. *i,LlNDEX 
I C I **K 1 TE ‘ o , 5 ) M r L I ^•U^M M j 
:j E (j K A T ( 2 X I 2 i G ) 

L T 0 R f'V 

c- li u 


line number index 


/2bH TUTmL NoMdER Of 


End O'E c up p I l a t I on ; 


OIAoNoSTICS, 
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/ 


1 * 

2 . * 

H - 



i \ • 
i ^ 

A J W 

1 4 ^ 

] b - 

* ^ - 

♦ / 

i 

1 V 

2 C > 
? I • 
Z 2 - 
J J 

? -4 




SwaRCuTl''fE LlNTLlJilS) 
V K I A n L E name 


DESCRIPT luN 


u i>( i T S 


Flo :v l 
I D 

i rj. T G 3 


lll 


FlOv,R.\TL in the hydraulic lines GPM ■ 

p fi 1; I T I 0 N c f line N U M E K IN 1 li d L I n d A K R A y S 
SECOND D^SlT qF ThE L ! Nl NLMoER 

laPRESSuRE line SYS I, 2*HLTDkN :> Y S i 

3 3 P H d 5 S i ■ R e LINE SYS 2 i H * R d T U K N S Y S 2 

bsPRESSU^E LINE SYS 3, 6 = Rt.TUKN SY^ 3 

i^U^OEf? 0^- lines on AcTUaTuR NN 

actuato.‘<numperonsysis 


C u M *'■ On t L » C E L T » * 1 it •“ 1 T S T 0 P » N N' 0 D E 5 
Cu -i.- Cn P ( 3-OC » 2 J I F \ 3c3 » 2 ) » H 300 , 20 ) 

c o 0 0 i . u 0 H II :• > , I D u n ( I 0 r- ) 

CurtKON/Ll.\tS/ LiNij;1(26uJ tKN0DE(260l ♦LTH(260J .lbl^il260) ,rCo.»uU60J , 
• TdMpiiM2??a)t»ENP0T(26C)iCDtf(^6U),SPACdi20»2»i 

z N0nulr,':S-',76},NLCNTlS0)»DD0Tdl2o0)iJHAPL»ENiSSi 

3 TdNPBf2l,2),FLACUM<2r>0)fFLO«r(260J 

Cl-'.'.bOn /alt/ NH yO I 3 , 50 ; , NhY out ( 3 t SU ) » HAC T , Fur I aO J 
- L Y i = 2 • I 5 - I 
L r 2 S I s 

‘j = I 0 u I ■ ( I 0 ♦ I S ) . , 


^ ^ 

?. 7 • 
Z *' ® 

2 


Do I 

^ = 0 -1 V N ( I u ) 

- u L r N c N T ( N 0- ) 

1; ' 2 L » = I , L L 

« 1 5^ N tj I l\ ( iN » • L L I 

I 1 0 L - L 1 0 u F ( I 0 ) 


3 ; -r 

1 •: ; L I = L 1 NL/ 1 rr 



3 * ^ 

I N r L 2 = L r E / l L / 2 



3 3- 

1 .4 ' 3 3 = 1 3 *■ I T G 2 




I0TG3 a IwTGl -INTG2 



b • 

iF<LOoF(lD)*^i-Cl InTG3 " 2 



Ja ^ 

I r 1 I t i T G 3 * t. ■=• • ^ d Y I ) I* L 0 W L ( I 0 I 

» F L0Y«L ( ! D ) 

♦ Fl*«(nn> 

4 7' 

iF\lNTo!3*E **‘ItY2) FlCwliIdI 

* F L 0 V. u ( I D ) 

* F U R ( N N ) 

3 ^ 

2 C ■/ N T I N U L 



J V • 

1 W 0 N T 1 H u t 



r\ « 

R L T U R f ; 



*1 i - 

E>.J - 





cF Compilation; 


NO OIAGnoSTICS* 
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1 ?.. 

v< CP 


1 - 


SubPOUTiNE L'JBOI 

2 * 

C 


3 * 

c 

V A j< I A b L E Name 

*, 

c 


3 • 

c 

C ( N * 1 , M ) 

o * 

V 

C ( ^i ♦ 1 , 3 ) 

;• 

c 

C 1 ft * 2 , 2 1 

d • 

c 


?• 

c 

T oAH 


I u* 
1 ) • 
i ?.*• 
1 J • 
1 M • 


I ^ • 
* ?• 
i b • 

I V * 


1 3® 
^ b <* 

: = ♦ 

2 6* 
2 7* 
2 r ® 

2 V • 
3C* 
3 : • 
32* 

^ 3 * 

3 M * 
3b* 
3 6 * 
3 7 ♦ 
3d • 
iy* 
HC* 


OESCR I FT I uN 


HCAT lOaO on gearbox 
LuBE OIL FLO ft rate 

HF'AT transfer COLFPICIEnT FUK LUbL OIL 
'heat tXCHAN-GEK 

AvEr^AGE OF Inlet and OOlutT Tt^Pb 


i tx I T b 


b T u / H R 

L o H T 0 / H K - w b 
oTc/HR*utG 

u L (j 


I KENS I ON Sf’HL ( 3 ) » OENSL ' 3 ) 

.• h ;•• 0 N K ♦ L » 3 E L T , T in £ , T i T 0 P , 

P(3C'E>25 f ' »3'!2C»2) »Ct—wwr*-» • 

“^H*iON/HYu/ 1^’ ) *. LK.KtRX t br 1 7 » POWER I 3 J . I bPD * 3 ) , I F L A ^ ♦ I F 0 r» I 3 ) 


0 I 
C L N 
Co 
C u 


) i>l N 0 D E 
JCO tZO) 


I fK)*r I 

bPr*L( I ) = *'J2 C'^*Tj^AR4,223 

0 L N s L I I j * - <» C I 9 o ' ^ • T '3 A * 7 C •> 6 V 

1 •- U S 0 n ) . E - - 2 ) G C T 0 10 . , . , 

r 19 93 7*2 ♦ 26,21*^ • yCK.EK(l) 
ciN*l,3)» bP:-Lll) • DENSLli}* 26-M63 
G o T L 2 G 

H i-j - M . o 4 + , 0 2 M * P ' j ** L K ( I ) 

CtN*J ,3i=SPHLUJ*Or.NbLiI)*33.668 

CONTINUE 


lov. y==T3AR — *i6C» 

?■ V- K L = { b 2 0 • / I 3 '■* • } * C { N ♦ 1 I 3 > / S P H L ( I > 
0 a:u = 391»3 &'^*(PcRL**« 29819> 

AcL= M, 8B‘y9379S^Tt3AR-l3bb.6bl 
mius- 2* l66o3'ib tTeAyv’*603«3bQ7P 
A2L-*2 3 9bb6 2 * tBak - 66* V 19291 
ALI-LR^ALOGlGlFCRL) 

ALU'2 l* AjL'*‘AlL + ALrLR * A2C*lALf^LR**2) 

0 A 2 L ^ 1 3 . • * A L U A 2 L 

■J b “ /• K A 1 I U H i w 1 U M 2 L ) 

C<.N*2,2J -(13 m*/ 1CMC») • UbE 
^L T ORn 

E i , w' 


ftCU''»PUTE Cia» 2 ) fOk 
WLudE OIL heat tXCHANGLK 


End of CckpIl^TIcNI 


^■0 OIAoNoSTICS* 
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1 ♦ 

£• 

3« 

i* 

&• 

6* 

7* 

8* 

V* 

IC* 
I \* 
w« 
12 * 
iH* 

lb* 
16* 
1 7* 

1 e* 
1 ?• 
2C* 
21 • 
22 * 
23* 
2H ♦ 
2b* 
26 * 
27» 

2 ’J • 


29 
3b 
J 1 

32 

33 
3'< 
35 
3 6 
3? 

38 

39 
“iO 
H I 
M2 
M3 

M H 

M:> 

^ 6 


t r i 0 0 F 





SUd«OuTlN£ MOO<N»I»JfM,TC,R,«lN,MAX) 




N 

1 

J 

M 

TC 

R 

MAX 

^IN 


node to 

SPLIT N 
SPLIT N 
c c N r K C L 
CONTHOL 
X K C h A N Ci £ 

max* V al 


•• Pi I N • 


SPL I T 

INTO I, FLOW 
INIO J, FLOW 
NOQE 
T E P P • 

PER oEbPEE 
0^ XM 
V A L , OF X M 


XM 

! -XM 


rfiiiijililliAS!**' ■' .'■ ■ 

Sni!; 


CELT, time. TSTOP, NNOOES 
2J > F(330.2> f C(300,20) 

ID'JMtiOC} 


WEAL max. min 
COMMON X, L. 

Common P I 3 w C 
COMMON OUM ( I CC ) » 

Cl 0 1 0 I C I 

ENTRY GMOO { N » I . J . M , I C , W , H 1 N , MA X J 
OAU i * C ( I I I 3 I 
R AU2 a c < . 1 C I 

- DO 1 02 J I t I M 

c u . 1 1 )«c {N , I n 
c ( J » 1 n * c ( Fi » I n 
lC-2 CONTINUE 

ClijlO* 3 AO I - • 

C(J»IG)*BA02 

ici continue 

I F (F ( N »L ) .LT* TC ) xp*0* 

IK U (N.L) •LT.TC )'’^0 10 10 

If I !♦! ,L)*^T*TC)XM*I. 

iK(f I i*i ,ludt,tcf go to It - 

XM-stTC**F tN.L) )/(K i 1*1 .L)-F(N.L) ) 
FUOa<TC-F (M,LM*M 
XMaAM-POO 
1 0 M fi B ■ I N ♦ , 0 0 5 
G'jai'iAX" *Do 5 
I F » AM , GE • HH J 
X M s , 1 H 
GO 10 18 

15 I F M N . L E • 0 G ) 

X M * Cl G 

18 CII» 3 )«XM*C <M» 3 ) 

Clvii 3 )=ClN» 3 >-'ClI. 3 ) 

30 F U . L ) aF I N I L > 

Fi 3 »L)*FlN.L| 

RETURN 
E.nu 


GO TQ 15 


GO TO IS 


COMP ILAT lON ; 


NO DIAGNOSTICS. 
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n) Q 

II 

Ig, 

C 


Is 


1 • 
l» 

3 • 

*5 • 

b » 

6 • 

7 * 

a* 

9 If 

I C® 
1 i • 
I 2» 

i 

A M ® 

1 b 
; 6' 
> 7 « 


b b ♦ 
./ 6 * 
3 7* 

c * 

3 V» 

'i :: >» 

s I * 

- 3 * 

^ • 

Mb ♦ 

H 7 * 
Id* 
*•1 ? • 


SutfrtOuTiNE: PLAT£tM»N) 

.1 - i N U 6. ^ 

iN - OUTLET 


variable NAf^L 

ICUP 
F ( N ,L » 

P { •’ > ♦ L ) 


0£bCR ! PT 1 ON 

FLAG TO SIONAL THAT PLATO AAb C^LLti; 
OUTLET FLUID TEMPEHATUNL 
component ilhplratuke • 


ONl Tb 


K, Lt DELT, TIMEi TSTCP, NNODES 
FI3Q3»Z J t • C(30C,20J 


CuH’iCN Kt Lt DELT, TIMEi TSTCP, 

Cuii tOv P { 3CO f 2 » t ^ . 

CO.i .C.s DUMllCOIt IDUH(IOC') 

E.o I V; LENCF ( OEL ' 02 ;DUM ( 1 / > 

C I N . 3 ) e Cl M . 3 J " 


1 

GO ’0 100 

19* 

EiTKY PLAT0(H 

/ 0 t 

C(i*»3)^C(Ht3) 

2 ; * 

S A V r. Q r: C ( P » ^ ) 

/- £ • 

S' ' V . T » F ( 1 L J 

3 1 

1 L JF * 1 

2 s « 

1 F t L ( M 1 3 ) # L E t 

ab** 

FtP. »U» UM,H 

2b^ 

C I H 1 M ) -0 

2 1 * 

GO TO 1 0 0 

2d* 

E ^ T K Y G F’ L T I M » 

2 9 * 

C T N . b ) - C ( fT , 

3C* 

^ * C ( M r I / ) * 

3 I * 

0 i 3 1 I X * 1 i » 


C ( N » 1 X. J * C ( H 

33* 

131 C'i.i -IX-b) - C 

3 S ♦ 

C i » 3 ) * C ( M , 


OJ GO TO 100 

) /C<M,3J /2*^SAVE7 - - 

N ) 
b; 

UUr. (17) ♦ C(Mrl3) *UUM I 1 8 ) 
1 M 

» I X ) 

(l>i,U)*OUH( IX*S)/PM 


C(^»3) s IC(N»6)*DUM( 
ICO C'JMInuE 
T : I - ' , 

I F ( T 3 ) .Lc • 0 ) GO TO 
U A .'.c P r C I P , 2 ) / C ( f' » 3 ) 
I‘-»M35{UA,vCP)tG’*60*) 
T I = E X F I ' L A W C P y 


C ( N , V » ♦OUM ( 2M ) ♦ C ( H I ^> ) ) • C I H , 3 I / C ( r» f b ) 


78 

60 


TO 78 


78 


T F ! •. ^ n I , - T R P I 

Titr'^«LcLT02*TRM2*C(Mt3J 

T‘<'^b^T'v^.2/2• 

TOP .-.L-ta . *r ; ■* » L ) 

r 1 1 T K P 3 B c ( ''I I i ) ♦ T H P 3 

PlPfLl»lC(H,H)*DLLT-lP(M»^)-T0rMLJ*TRM3‘»-CiM,i)*P(ri,A))/O‘rf<i13 

P;V_.;Kr:p { M , L ) ♦p ( H i K ) ■ _ 

r I . 5 I X T » r. t, • P y L f i K ♦ T Pi! M 1 • F ( M « L ) 


r-D* 

C ( H 

. 3 ) ^ C ( H , 

b 1 • 

IT ( 

; C U P • E 0 • 2 ) 

b2* 

c ; ••» 

j M ) * b A V Ey 

bi* 

F t ;i 

♦ L ) = 5 A V E T 

b H ♦ 

IF < C ( . 3 ) t L E • 

bb* 

F \ \s 

, L ) » F 1 ^ 1 L 

b6* 

iC? I Go 

'=C 

b7* 

RET 

R i\ 

b c- * 

E’; j 


t.*0 OF 

co>:pIlatIcn; 

NO 


K ) 

t\r 
3 ) 

Kt Turn 


GO 


0 1C2 


3)/2. 


NO OIAC-NDSTICbt 




SubROuTiNE T L A T L C { I i , J J ) 


I • 
Z* 
3* 

M • 

6« 
7* 
6 • 
?• 

I 0* 
i I “ 
12* 
i 3* 
i M* 
i 

I e • 
I / • 

; 'j • 


vARIAiitE name 

NSTRT 

N fry 
S' j R 


OLbCRIPTluN _ 

location op FIRST NOOE lU IttlL LJUPlLD Tu 
NOOE M 

location of last NOO£ In ibUi CugPLLL To 

NOOE M 

TqTAL HLAT LOSF.O to STRus.TOKE Ok OTkLR 

: 0 M P C N t r.' T s 


CjKMOn k, l» delt, TI«E» TSTOP, nwodes 
C u-.iiQN P(3C0»2>» F(3CC»2)» C(3CU»20J 

cvr-^ON loo'^noo) 

C'J '':!;UN/OLUB/ ^LLPUoO) » It IG(2CC0» ,VaL(2C 
LEEP I 3:0 ) . J3 I & ( 20CC ) , RVaL I 2 

A A = C < I ; . M ; 

•C J r 0 MM 


0 L ) • 
CC'J) 


1 / • 


t.,TKY PlA’CCUIiJJ; 

2 0* 


A A -C t I I , M ) 

2i • 


U c *^ = 1 

22* 


<3 u TO MM 

2 3* 


t,,TrtY GPLTC ( 1 I , JJ ) 

2 M » 


3 L/ “ C ( 0 3 « I } 



Mb 

Z b ^ 

Mb 

CiJJiUJ CMI,U) 

ZT 


c ( 3 0 » 1 Q i * B A 0 

Zd* 

« M 

C J N T I N U t 

if 


N - ^RTs- C.EP { I I I / lOO? 

30* 


NrnY«»;c:EP(n)-NSTfU* 

3 • *» 


I f ( \ S T S T • E 5 . 0 ) <a 0 To 



5 w '■! ” 0 • 

3 j • 


3 J > :• ; I = N S r R T , N T ?< Y 

3 4* 


N L! !• r i .. 1 u t i / 

3 b • 


^ E ^ I I , K ; “ p ( N 0 y, , < 

j <> » 


S j M « b U J V A L t I ) • T £ H P 

3 ; • 

10? 

C u N I 1 1 '< U L 



c u I » M » “C ( 1 1 , M ) -Sum 

3 V • 

I bC 

EbTVTrLECPt : I )/l -00 

SO* 


' 1 “ L t, E P ( I I J b T K T t 

R . * 


I P 1 r, J T T * t y * 3 ; b 0 1 0 



S J i i - C » 

J * 


f M r. P ; II , K ) * * M 

u tj * 


O'J :7b 1 = S T R ^ , N T K y 

Mb* 


N u » = J a 1 (, C I ) 

Hfcv 


T t. I t p = T M - P i N C * t K ) ♦ • M 

M 7 ♦ 


i U iS r 5 u >'. ♦ R V A L ' 1 ) * T E H p 

Me* 

1 7S 

C u V 7 I f< U E 

M V -» 


CiiI,M»»C(II»M)-SuM 

bo* 
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I F 1 I C U P • t w t 1 ) C A L t P L 

b i • 


IF < I CUP. Eg. I ) GO TU 

b2« 


Call pla Te (! I . J3 J 

53* 

2C2 

I L U K - u 

b M • 


C U 1 , M J «Aa 

b b ' 


;^LT!jRN 

b ^ ♦ 


- l\ J 


1 bO 


-ou 


202 


203 





1 ♦ 

4 ♦ 

6 •> 

7* 

V* 

I G* 
1 1 • 
i 4 • 


SuaHOUTiNE: PLOOT 
C 

C SUBROoTiNt PLOOT PUTS THL INFORMATIuN f-ROh £ACM 

' C COMP C^CLc FOR EACH OESIkED PuOT cNTO SPE^U 

C DRUM TO b£ retrieved EATER UY Trie. KoUTInc UKA»i 

C variable name ^J^S»CR l_PT I UN 

C IpLT NyOE number OF PLOT 

C UyRaDR address on drum at kUHlCn TO fVRiTE uata 

C • JpLT Tvpt OF PLOT 

c nia Counter for NUMatR of Pluis 


UNITS 




v*.-» 


13 
I H 
1 3 
lb 

1 y 
16 
1 9 

I 


4 o 

^7 

< V 

3 I 
32 
3 j 
34 
3 t> 
36 
J 7 
3H 

3 9 
4Q 

" i 

42 

43 

4 4 
•*b' 

■4 

4 7 
4 b 
4 y 
3 C 
b I 

32 
3 3 
M 
'j 3 
3 ■S 

3 7 
b b 


•j 1 
6 2 
o 3 

to 4 

6 ‘3 

3 '? 

6 7 
6 3 

O r 

yo 


NnPL ^ s 

N p L P T S 

Planet 


0 1 1-1 E N s I 0 ■■'» 
C 0 r >? 0 N 
L u H 0 N 
C U M M 0 N 
C bl '•I H 0 N 

C 0 M M 0 N 



• ♦ *5 

3 S 

• • ♦ 

4 C 

• • « 

i.0 

54 

5 6 

« • * 

6 3 

• » ♦ 

7w 


number qp Plots plub i ^UN a 

COUNTED FOR NUMBtP or ‘’ulwT3 ON-EALH 

PLOT 

ApKAY OF values to PuT UN Uml MulOKu 0^ 

'drum (|)»T;ME { I ) ♦ I »2 ,NNPLT3«UNt. 

OINT POP EACH PARAMLTLK BET'o PLOlTtCr 

value to put in planet AKr<AT 

planet I 25 ) 

K, L» ULLT, T!ME, *^ST0P, NNCDES - " 

P;3L'C»2i» Fl300»2)r C(30C,20I 

D u M 1 1 E a ) » 1 0 n 0 « ) 

/^RRaT/ L*l3Cr,,iO),TlNlT(3 00)*FLAG.lTTLK 

/Pi5T/ NPLT5;1PLT(25I .JFLT(25J tPLT^Ew.TSTPib) »AMXl5(5) r 
YaXIS(Sj fNOPLuTib) ,NPLPTS,NTKi 2 3I »lw««uK»iKOAU^ 
CommOn/UAmMIT/ ILkG( 12) ,Ef^G \ i2J ,0H( 12) 

C 0 ^ 0 N / A L T 0 / A L T 

. /CoMEVP/ I;.AT: IOm.’ ATI 10) iD'^f IQ) .AmTuFI ( 3 I 
E u u I V A L t N L E < N E K G , 1 0 U M ( I 6 ) ) 

UaFa COfiVF/22 0./ ;JCONVEkT LuM/Hk TO upH • 

nIx = 3 

NP-PTScf.PLPTS-^ 1 
P L A N C T t 1 ) « T r M L 

C U N T I N U E 
' I A - i X ■*> I 
N U o = J P L T I N I X ) 

J G ' I P L T I N 1 X ) 

UG TO ^ 10»20»30,4c»sa»60»70.8c»90»l00flicil20*130il40.150,l60il70» 
ItoQ* :90,2n0»2i0f220,23G) ,NU6 

Fluid te'^peratukl iuegree5 k) 

X A = r I M u G # L ) - 460 . 

GO TO 400 

CO^!PO^E..T TEMPERATUkE (OEtKEES R) 

Xa- ^I'-'UG^L) - 4^Ct 

G 0 ^ U 4 0? 

C L’ ■ . ” I N U E 

U (ABSiCiHUGtb) )*LT,.COOCcl) GO T0 35 
Pl'Dii Rate (L3S/mR; 

Xa = C I MUv, , 3 ) /C I f^UG ,5 ) 

'j V T G G Q 

Flu., p /• t e ? g f m ) 

X A ^ C { vjG , 3 ) /CCNVF ” ' ‘ ■ 

U TO M c 0 
HlAT (t?lU/HR) 

XX«CIMUG»4) _ 

Go TO 4 o j 

'» A T E R K E 'I A 1 N I N G I L B 5 ) 

■3 f 54 I - 1,10 


PLOOT 
2 of 3 


If ( M u o .EG* 
L J ^4 T I N 0 E 
X A = X A T L F r I I) 
GO T C ‘ICO 
C'JNC* OF H20 
XA a C(M'JGf6) 
Go r 0 4 c, j 
L j N C * w F 0 2 
7a ~ Cl ‘■'U 3,7) 
G u TO 4 C- 0 


IlftAT I I )) Go TO 56 


ILD/LB DRY GaS) 


(LB/LB DRY GaS) 


/ 


?05 


3 of 3 



7 ! 
72 
7 2 
7 S 
75 
7 6 
77 
7b 

7 9 

bo 

^ l 
fa2 
bi 

bb 

8 6 

8 7 
bS 
b y 
o - 

92 

93 
9 h 

9 3 
7 6 
9 7 
9t> 
9 ? 

ICO 
lu I 

1 O 2 

: C 3 

i 

) '-I 3 

i 06 
10 / 
1 0 <? 
i C? 
110 
1 i 1 
1 i ^ 
1 J J 
1 

1 ib 
I 1 6 
1 1 7 
1 1 i- 
1 I 
1^0 
i 4 1 

1 ^7 
3 c 3 
1 2H 
» 2 b 
1 2 6 
I 2 ; 


C CcnC* of 1^2 (LB/L6 DRY GaS) 

tiC * A = C ( FiUCi I 8 1 
00 TO MOO 

C Co'.C. OF 002 ILB/Lb DRY 6 aS) 

?C = C(l'0Cj>9> 

0 U T 0 H G 0 

C HlaTEr pOutR (BTU/HkI 

IGC *U 3 C (MUOi 131 

GO ro Mco 

c paktul pressurf: of H20 (rsn 

113 XX 3 c ( KOG , I I 1 
Go TO MCu 

c pakti;l Pressure, of 02 _ (psii 

1 2 0 X X 3 c i c (, » 1 2 1 
0 u r 0 M G 0 

c PAMlAL PrESSURL OF N2 (PSI) 

1 30 XX « C { MOt , 1 3 1 _ 

0 0 TO « 0 0 

c Pa.^TIaL PrESSURC of C02 (mP.HG) 

I'iZ Xx » CTMwva»!H) ♦51.700 68- 

Go TO HOO 

C ••• NLaTEr GNuRGY (bToi 
I S3 Ou 1 S5 I * 1 I NErg 

iFlfiUG.EO.IERGTI)) qO TO 166 

1 6 6 C 0 N : I N U E . _ 

136 Xx = GRCi T I 1 ♦ DM ( 1 1 

G J TO 4 C 0 
163 Aa ~ CffiUC'»l8l 

TO MCO 

c ♦•* AocuM Fuel (Ebs) 

I73 Xx = CtfiOCjil7) 

Go TO HOC 

C ALCU^' E.GEkGv (HP-HKj 

I 83 Xx = C { fi'JG I I 8 I 
Go TO HuO 

c • * • Full f; e a i n i n g i p e r c E n t u s a b l e i 

1 V 3 X X s c : P. 0 3 1 I 9 ) 

Go TO HQO 

c ♦♦♦ A(i..iiENT Pressure (PsIai 

233 Xx=G(M0Ut2) 

G 0 1 0 H 0 0 _ _ „ 

C BuiLER pressure M PS 1 A } 

2 10 Xx= Gi?^uG,ll 

G u 7 0 H C 0 

c *•* P i SCELLANcOUS plot __ 

2 2 0 X X G ( o , 3 } 

1 F ( r UG . EW , 36 1 XX-“ALT 
Go TO '» C 0 

C P I SOElLANeOUS plot. _ 

2 3 c Aa r- 1 ( M U G I 7 1 
HOC COiJTiNUL 

L A \ E T I ■ ; I X ♦ 1 ) « XX 

If (G l X.LT.NPLTS) GO TO 6 

N.hPlTS«NPlTS*1 

call RARlTE(URA0K,r»LANE7,NNPLTSilSTAT) 
‘<bC IK USTAT -E^j* 1 1 GO To hSQ 
I..KAL'R s lARAOR ♦ NnPlTS 
E N u 
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I • 

z* 

u • 

b* 

6 ' 

7 ♦ 

u ^ 
V* 

I O' 

I I • 

i i ^ 

1 b • 

1 s • 
i 5 • 
1 6 ' 
I 7 ' 
: a ' 

1 V# 

2c • 

2l • 

2 2' 
23* 
2M* 
2b* 
2 6* 
2 7* 

2 L' • 

2 Sr ♦ 

30* 

i • 

32 • 
3.- • 

3 M * 
3b* 
3 h * 
3 7 * 
.3 o * 
3 V ♦ 

-iC* 
H I ♦ 
'12' 
Hi* 
^ 4 • 

Hb' 

H rj* 

M 7 * 
Mb* 
H V • 
b Q * 
b 1 • 
b2* 


SjdROuT i N'?: PKINT 

r 



VAKIAb^E name DESCRIPTiuN UNMS 


AERROK array Of titles for heat dALAnCl values 
G(!,7) array Or hEat balance ValUC:> 

5M»0) I = I * 3 , Js I , 2 , 3 , 8 , V - output h KOM dOlLP 
' Ialt ' Flag to limit printing jf alt ouiput 

ALT HiRsIONs 

icNT Counter »-ur number of cunp LYcctb bltwEln 

PRINT CYCLES 

IP Flag to signal which routine was calleu 

IP*l*pKINT IPs2*SELtCT 
iPRNT NUMBER OF CUPP CYCES PE« PRINT CYCLE 

IS^P Fi AG TO prevent i T I NG NOUl 1)A1a 

I,JAT NODE number OF BuILER 

array of inlet p^odes on each SY:>TEM 
nade array of outlet nodes On each System 

NrtP NyMSER OF NP FOk Y;HICH TU_PRINT THLKNaL 

Data 

Nfi?i First f-iooE number used for fuel uSAul 

Nfi06 last node number USL'U F.jrt energy U:jAuE 

nnudes tqTal Number of nodes In muuEl 

r^p to'^al Number of nodes lf< ipart arKay 

NUP computation cycle COUNTlR 

NyvAT Number ok boilers 

TTINIT STAWTTIME 

waT Ar.ouNT uF Abater used uBm 


CcHMOn K tLiDELT .Tint ,T5TOP,NNOOES 

Common p i 3Cn » 2 ) , f { 3?jC , 2 ) i c < 30q , 20 l 

C u H M 0 N c u M { 1 2 D ) » I D U M ( I 0 0 ) 

C 0 M M 0 .N / 0 A • • M I T / I E R G < I 2 ♦ » E R & I 1 2 5 t 0 H U 2 ) 

C U n M U N / T r M E / T I .M s t M ( 3 > , A “• S N T M , F U D G E » S U M a R > ( 2 0 i 3 ) 

Common /arRay/ g ( iC'' » i 0 )» t I n i t ( 3Co ), flag i I t t er 

CuMmON /FrT/ I PRNT » I CNT , Af;AME { 3CQ I 2 ) I AERRuH t 6 I 2 ) 

COMMOr, /act/ NHYO ( 3 ,bO ) .NhYOU f ( 3 ibO) iNaCT ,FL'<<4 SQ) 

CuM.-oON /alt/ LP20(3)taH2CF13)»lALT 

C 0 n .r 0 N / C 0 H E V P / I n A T ( I 0 > I A A T 1 I c ) I 0 A ( 1 0 ) ♦ W A T L F T I 3 I _ _ 

0 i M E f; S 1 0 N N /- D ( 3 7 I 1 A 0 E ( 3 7 ) 
omens I ON I 0 ( 1 ) , IPaRT ( I » 
dimension irON(bi ,CQN(b) » dc(S) 

Ewul V aLLNcEi lOUMl IQJ ,NTURuN) , , , 

two I Valence ( iouH( i6 > iNeRg) , t ioum(17) iNup), (dumiz,) ,ttinIt) 

EoU I V aLLNcE ( NCON , 4 DUM ( 22 ) I , ( I C 0 N t I D U fi ( 2 3 ) ) , I uc , Ouri Md ) ) 

E u U i V *. L r. N C E ( C 0 N » D U M ( b 6 ) ) , ( I 0 u M ( 6 J ♦ N W A T ) 

0 A T A 1 S / 0 / 

IPM 

GO TO 199 

Entry sellctinp.nmp.ipart.io) 

1 Pn2 

C o :>* T I N U c 


ORIGINAL PAGE IS 
OE POOR QUAUTVi 


53 

■■ 

» 6 
b 7 
3b 
39 
o3 
c» 1 
^>2 
6 3 
6 M 
fc b 
6 6 
e 

6 o 

6 7 
7D 

7 1 

72 
7 j 
7*1 

73 
7 6 
7 7 
7u 
7 7 

ri I 
c5 2 

63 

69 - 
6 b 
b •> 
7 

o e ' 
c7 
VO 
7 ; 
92 
7 J 

7 5 
96 
9 ; 
r ki 
V V 
: -0 
3 U 1 
U2 
1 C3 
1 5 4 
155 
1 u 6 
1U-’ 

1 0 3 
109 
i i 0 


96 


JC6 


iQ5 


TO 108 


1 I 


8 


13 


310 


DC! 96 1 . 1 , NER6 

£RG t r ) *E;R(i ( I ) -* OH t I I 

0 rt ( I ) = 3 , 

C 5 •% T I N U L 
5 U 1 C 6 1 * 1 » r • - 0 N 

coN(i)xco.7n}^ocnj 

oc. I 1 ) -^c. 

Cutu I NUL 

1 C T « I C N T * 1 

1 F ( C t 3CC » 2C J • GT . I D • ) GO ' TO' I 08 
I r (aL^JT l!'1fc.*" 5iCF) tO — *0E15T1 ^'0 

: F U CNT/ I RRNT ♦LT • 1 ) GO TO 36 
C U N 7 I )N U L 
5 ( 3 C 0 . 2 C 1 * 3*0 
1 C 't T = 0 

IPtlS<P,EiJ»C> GO TO 81 
IpiIalT.Nl*!) go to 110 

».fs i TF { 6 , 6 ) ( DH2C t I ) I I = I , 3 ) , t aHZOF t II » 1 = P, 3 ) “ 

F«;<K.AT { iHa « 16A , iS.HWlATtR iu t) 0 I L £ R , 2 7 X , 1 7 H „ A | fc. R Tf<MNSFc.KRtu/ 6 A , 

•6 ( P S , 1 , I OX J ) 

C u I'* T 1 1\ U E 

.«HiTE:(6,7}nAE.KR0R(itRR0K,J)rJ=l»2)tICRR0K*=l,8) 

Fi,r<f'lAT(lHo,8(2X,2A6J/l 

^ 1 ^ c 

Ar, :tl(6,g;(G(i,7)iIs1,c) 

F V K .V A T ( 2 X ♦ 8 ( 1 P t I C » 3 , M X ) / / ) 
l^ricZ 

FC.N.7AT<7X,2H?pi2X,2HP2,llX,3HPl2,9X.8HSAT_TLhP,6x,8HM20 KATt., 7X ,_ 

♦ HnPLAGtlOXtSHlTTEiK//) 

Du31CN*1iNTuRBN , 

«^HiTE{6,9)(Gtl»J>»J=l,2)i(G(I,J)»vi* 8. 9>,G(lt3)»PLAG,iTTcK 

F o A T ( 2 X , 8 { I P E I 0 » 3 , H X ) ) _ 

1 = I •••be 

C • ’ M I !■' U E 

Ou"l2b i = i,NTuRdN iai print ivUUt NUntiERb 0^'* tAth SYblLK 

1 0 u M { ; 0 ♦ I) 

i7U l2-0 

Ip ( JN,E0.0J ^0 TO 126 
N A 0 { J ) 3 N H Y D C I I J ) 
aue: ( o ) = nhyout ( I • j 1. 

C 5 f « T 1 *'J U E 


PRiNT 

2 of 4 


1 23 
1 1 
12 
126 


! f (NAp(j) fjsl 
1,{NA&£(J),J31,JH) 


, 1 I t 37 ( I 9 ) ) 
I I 1 ,37( IM) ) 


9C I 


*• h 1 t E ( t . 1 1 ) 

H I T E { 6 , I 2 ) 

CuiP UiUE 
P U K P A T ( I H 0 » 9 H P4 
Fun.9AT ( 1 X ,9H0UT 
CC'NT 1 NUP. 

1 1 • K = T pi C 

rth;rjs(TlHi:;-IHR)*60* 

1 H I ?«! 3 h M I N 
3 1 5 s ( H h I N - I N i N ) • 6 0 . 

Ah1TE{o, 1) T I h£ , I hr , I M I N I sec 

FokhaTUHo, 7HTIME s,FiO*3flOX,I3il3,F6.2/25A9hCO^Pl2XbHFEulO/2X* 
►‘*M!<0DEl9X9HTEnPi2X9HTEHP12XiHci3X2HUA12X3piMC.Pi3XlHW/l 
GO TO MOl »M02I » IP 
lt.NO=l« 

Ou IC i«l,NNOl;ES 
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Ill* 
112^ 
i 1 J* 

1 I M* 
i 1 3 • 

i i 6*" 
1 1 7* 
lie* 
i i ? » 

1 i ■ 

1 7- 2 • 
I2j» 
i 2 s ♦ 

I 25>* 
126* 

1 27« 

1 2e* 

1 29» 

1 2Q* 
i 3 1 • 

1 32^ 

I 3 j- 
i 3 H * 

1 35* 
i 36* 
i37* 
136* 
i J T * 

i 

1 4 1 ♦ 

I M2* 

1 *t3» 

1 *: !♦ 

I ** 3» 
1-6* 

; s 7 ^ 

1 

1 4 9* 

1 be* 

131* 

11:2* 

I j3 • 

I b <-. • 

1 5r* 
13 6* 
i b 7 «» 
i b e • 

I b9* 
i oO* 
i 6 i * 

I oi* 
163* 
i 6*i* 

1 oS* 

I <5 t • 

1 o 7 • 

1 t 8-* 


2 

iO 

<iu2 


4? 

83 
B 1 
o 2 


3 

u n 
7b 


rtKlTt(6*2) I »?( 1 ♦pl I t'-l ♦ICl 1 |H) f 
^uKhATl lX»IM»3(2^»P l0«5|2xl »2X»P7* 
bbX , b ( 2X I IPE. M • b I > 

C 'w ! I r I N 0 i- 

bo TO 82 

N 3 1 

0!3 83 I -= 1 , NMP 

i N'JtX« I part ( n 

I 6I*D~4 

U(INi;tX*N8*lO(Nn r,0 TO 4C3 
I L N 0 « I 4 

N s I'i ♦ 1 

continue: ^ 

P(1nC£X.L)*P(IND^X,L>-‘^60* 

F ( INDLX ,U *r ( INd£X »L ) -H60. 

if^DEXi lANAhEl INDE.X,J) 

,M=l , IbNo) 


3 , I ENu > 

I , 5 I 2X , 1 PEI I 


b) ./ 


PkiNT 
3 of 4 


{ C l I N D E X I M ) 
r U K M A T i 1 X , i 


4f3M - »2As»2X,Flb.2 


• b 1 2X I 1 PL I I *b ) , /b-^X i5 { 2X 
P{ iNotx.L} 
F n N U L X I u 


p ( I N 0 E X , W > 
- ( i N D L X , L } 
C 6 i, T 1 N U L 
U t' T C 6 2 
C 0 N T I N U L 
I b !v P = 1 
I E ( ] 0 U P 1 6 ) 

If 1 n .V a t , l t 
0 0 1 c I - i . 
•* K i ' d I 6 « 3 1 


, IPL I I 

♦ . 460 

♦ 4 60 


7b 


b ) 


»J*1 t 2 ) »P( 1nuLX»L) |F 1 INQLXtL) t 

2X»4(2X»F 12»2j 2X) i2XtFo«l« 

) 


EQ,I) (jO to 20 _ 


4 

6C 


b 

61 


33 
8C 
b b 
44 
20 


FULL U-bMl 


1 pt: 1 1 . *< J 


00 TO 
,Cl 00 TO 75 

iWAT^ I ^ ^ 

Fj:^.i;AT(lLXt4HM!)0k:,l3f5X,26HACCuMULATL0 CONTuMAbU^^ * i 1 P^ U • *< 1 
ClNT I NUL 
C 0 N T I N U L 
i F ( I 0 U M ( 3 ) 
b 6 Pt a C • 

} 3 N N p ♦ \ 

r/ f. F 3 = .-1 p 3 

Uu 60 IaNrPl»NMP3 

INlEXsIPAkT ( I ) 

^K1TE(6,4} IN0EX»C(iNDEX»I7» 

Format! :&X»4HN00F, i3tbX,26HACCUMUUATED 

ConTINUL _ 

— f^Mp44 

N,'P6 a ijP.P+O 

0 0 6 1 I = N p P 4 , M P 6 

1 :<OLXa ! PAPT { I ) ... . - 

VvKi;E(6,b) 1 NUEX«C(iNDEX»18) 

FuKPAT(lCX»4HN0L>E|l3»bX,26HACCUM ENERGY (hP-HK; 

Continue 

I F ! NFkG . LE • C 1 00 TO 20 

OUhCIal.NERO 

b u P a s b + L R G I I ) 
iFlNcho-cW^ll 00 TO 60 
1 T E ( 6 » 3 3 ) I L 0 M ) , E R 0 
'0«.-'.,^T I iOXi4HriOuL, 13»‘^X 

C U 1 4 T 1 N U E 
AKiTL(6s‘14) SUM 

Fuf<M7T( 13X» ISmTOTaL ENEROy » ,1PE11.4) 

Co.N T 1 NUL 


1 pL 1 i . 4 > 


( I ) 

, 9h! 


KEKGY 


1 PE 1 1 . 4 r 
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PRINT 
4 of 4 


O Q 

« g 

II 

■ki H.-'. 

.r, 


1 69* 


If- t I D U ^ ( o } 

17C^ 


If lNCON*Lt 

171* 


Oq Bb 1=1, 

1 7 2* 


K I T L t 6 , b 3 

1 7 3« 

b 3 

F u K :h T ( i a A 

1 7 H • 

b5 

C 'J IN T 1 N U E 

1 7 b* 

J 6 

C 'J N T In U 

1 76* 


NU’=’sMjP* 1 

17 7* 


x^Hur 

l?u* 


TIM*: » T T I 

179* 

I CO 

C J IN T I *i U E 

1 oC* 


I c u { 1 0 0 } 

1 6 i * 


^ E rj r» N 

1 ti2 * 


E !■< D 


»EQ.l) OC TO 36 
• O GO TO 36 
N C 0 N 

I C 0 N ( I ) , C 0 N { ! ) 


i . iN V i J , L V I i J 

M H -N 0 D C , I 3 » b X , 2 1 H C 0 N 5_U B C 0 N S U M A u u k. b « i 1 P E i !_• M 


IT + X ♦ 0 £ L T 
I CNT 


OF C 0 M P I L A T I 0 ; 


NO DI A(bNcST ICS. 
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2» 

3* 

M * 

6* 
/ • 
e ♦ 

7« 
iC« 
1 1 • 
1 2» 
1 3* 
1 H* 
IS* 
I 6* 
17* 

; o* 

1 ^ * 
2C* 

2 I • 
22« 
23* 
2m* 

P t, 5» 


S J ts rt 0 U T I E P H T T A B 

C 

c sogrojtine phttab Gathers twe su'^maky table 

C INFoHPAVlON PKEPAKED IN OTMLK NyUTlNESi COMPUTE:* 

' THE OTHER NECESSARY vAL’jtSi^AND PkInTS UWT TmE 

C CONSUr;A6L|:SSuP.MAKYTABLt 

COHf'ON /TYME/T INSUM(3? tANSNTH,FU0&L,SUMAKTl20»3) 

00 r38 J* i , 3 

S'J:lHpY(8»J)'5UMAKt(S»J) 

S 0 :i R Y ( I 3 , J ) « 5U M A R r < 3 , J ) 

PAKT1=C. 

PAKT2xC# 

DU v37 I»S,9 

PAKl 1 s®ART i^SUHAHYI I »J) 

PAKt2sPARt2*SUMARYU-IO,J) 

93? C0\7IriUE ' ■ ^ ' ' 

S L .H A K y ( ? » U » ^ PART! /IQ* 

so:- ARv f j 9 , j ) T part 2 / \(2 , 

SU/'^Pv(lO.JJ*SU'‘-lARr(R»J» - (PARTl * SUMARyIYiO)) 

50,1 • P Y ( 2C , J ) * 5UHaKYMM,J)- tPARTZ'^ SUMAkYUViU>J 

?38 Cui'iT InUE 

*H| TElfc.lQQCJ ClJ'^,IJK*J,3)»(JKI»JKl«*li3) 

IC3Q FUk.-.AT I 1 H I » RHX , ?HF UEL I LB M » 2 2 X , i 0 H >i> A T E R , L a M / / 3 5 A , 3 t 2 X , 7 H s Y S T t M *i 
*l ) ,2X,3(2X»7HSYSTEM ' “ 


26 * 
27* 
2e: * 

2 'p * 

30* 
31 • 
32* 

3 3* 
j M • 
3 5* 

3 7* 


.VR:TE(6,*00^> MSUMARY(I?J>*vl*l,3),(SUHAKY(l*lC»U)»v'*'l,3),i*i,10) 

iCQl rUK'iA T(i7h PHESE''*T LOAQIf^t »l7Xt3FiO*li2X,JKiL*J//iaH UNUsAyLc^/ZR 
*X» 23 HMC^ 5 yf,-£^;r^l^y error (RSSI »6X,3Fl0.i»2A,JKi0,l//MA,9HREsiuUALS» 
»2 0x»3Flc'#l»2X,3FlC.*l//l6H PINIMUH USABLE' ♦l7X|3Flu.l»2X,3h I0«i//lv 

♦ H H£QIHE,mEnTS//3Xi22H PRElAUnCH REuUIKLhENf,dX,jriU*i»2X,- 

*3M 1 7/3X » 1 VH FLIUh? R EUu I K E ME N T , n ^ ♦ 3F I Q , j , 2 X , 3 F j o . i / / M a i 2 n P 0 S T 

• L/iwDi:wG REQUIREMenI|5X,3F1G*1»2X,3F10*1//Sa»27H2m HUuh LAUr<Ch HOl 

fO RECYCLE/‘iXtllHKEwLln.EMENT,lSX,3F10*l»2X,3FiO»l//«<A,l7HDlSptnSlO»^ 
*5 llCi5)»i2X|3F15«li2Xt3FlC*l^/l‘<M USA«L£'hAr<G:NflVX|3M0«l*^^i^FiC 

»*!///; 

R 7 U R N 
ENO 


E N U 0 F C 0 M p I L A T I C N 


NO diagnostics. 
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b L rj 0 U T I N L & y 


v,^AL(ALT) 
1 of 2 


(AL*^) VE^3I0:i 



o 


* 

2 « 

T #> 

H » 

Q 

7 * 


i C 
1 1 
i 2 
1 J 
i s 
1 b 
« ^ 
I 7 
1 

1 9 
20 

2 1 
22 


C 

r 

V 

c 

c 

c 

c 

c 

c 

0 

c. 

c 

c 

c 

r 

r 

c 

c 

c 

c 

c 


variable name 


DESCRIPT I uN 


0 tv I T S 



G ( I , 7 ) 

1 I 0 

Jb I 6 
iW 0 T R T 

ntry 

RV AL 
TCC'JP 

T 0 Y C U P 
val 


i *» 1 , 3 heat I N oJU 

IsH,7 meat out ^ ' ■ - • - y T U 

1*8 OTU’S ERROR 

array Of- conduct 1 ON/CONVElT ION coupling 

NODES 

array of radiation Coupling N00t.b 
location of first node in iblG UK UbiG 

ARRAYb coupled TO NODl (N-^Nl) 

location of La^T node In IbIG Or JblG 
arrays coupled to node 

array Of RADIATION COUPlIno COE^f•lClENTb 

Total heat out via coupling to bTHUCTuHt bTu/HR 
For One system for onc comp c^cle 
Total hlat out via couPlIno to structure oTu/hR* 
FUR All Three systems Pi_us lInl ano 
component lOSSlS for one ComP CYLuc. 

ArKAY op conduct 1 ON/CONvlC T 1 ON LoUPuiNv* 

coefficients 


2 3 
2 *-* 
l:> 
2 6 

2 7 

2e 
2 ? 
-iO 
•i J 
32 

3 3 
3M 
3 S 
3 6 
37 
3 8 
39 

‘i I 
V2 
H3 
1 R 
Mb 
Y A 


M 9 

sc 

b i 


C - _ 

CoMhOn k»LiDElT ,T|Ke ,TST0P,NN0DES 
Common p ( jc:: » 2 } , f ( 3oo , 2 ) . c i 30 u » 20 ) 

COMTON DUM ( I 00 ) » I DUM n 00 I 

CCHMOn /act/ I^HYD ( 3 ,50 j ,NhYOUT ( 3 ,S0 ) ,NaCT ,F ( b0> 

CUnMD'* /AKRaY/ G ( 33c • I 0 ) » T I N I T { 300 ) ♦ F Lag » i t tek 
CO riH0N/GLU6/»^EE'-=l3OoI,IblGl2 0GC)fVAL(2O0C), 

« LttP<30c)fUblGl 2 000 > iRvALtiOCQ) 

ClmmON/EXTRA/ ICOUP(300I 

£ <» u I V A L t C E { N T J V '3 N , 1 D U M ( I C T I 
G ( b , 7 J = a • ■ 

0'JlbM«I,NACT 

lb G ( s , 7 J cC7t 5 , 7 ) ♦ C(M,n* C P I M I L ) -T IN I T I H ) » .t* OF AcTUAIpRb 'AyU In LATEr 

•>•'103 

00 ICD i*itNToR3N 
r 

C PG».ER heat IN _ 

C - 

GUr7)« Gtl77l**>;C(N4.l,H) ♦ CiNfMtR) C(N47,MM* uLLT 

C(2H9+I»2j=Cl2M9'*'Ii2l •*’ ICl*N*l»Rl*UELT) <•• aPU hEAT pEk STbTEP 


C TyKBlNE heat in 

C 

b I 2 , 7 ) = 0 . 

C 

C TuTALHEATIN 

c 

G{3,7I*gII>7)*^G.'2,7) 

C 
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OUT bT H20 


V.(ALT) 
'£. of 2 


/ 


3 2 ** 

» i < 

3 M ■• 

i J ♦ 

- f * 

3 7 » 

3 r « 

by* 
tc* 
6 • * 
b -> 
6 J • 
b *1 * 
6 f>« 
6 6 • 
<j 7 ♦ 
6 b» 

6 9 * 
7u^ 
71* 

7 / «> 
7b* 
7 « * 
7 b« 
76 * 
7 7 • 
7 M • 
7 V * 

bj ^ 


C 

t 


c 

c 

c 


c 

c 

c 


'••'C.Aif UU, Oi 

J ( , 7 ) r G ? M r 7 ♦ 'J t N * 2 I M 

C ( 2 b 2 * 4 , 2 3 «C J 2 b 2 M » 2 * ♦ 


?*0fc.LT*(GlN*2»S) * lPlf^«-2,L)- 

G<K* 2 »M)*OLuT*«G(N + 2 ,b 3 *t^U. 
) to rt aTlK 


HlaT 510 ‘VLD liJ CApAcITANCt* 


2b 


0 u M f U A* 0 . 

U u 2 S' W i * 1 » 1 M 

U U i • : 1 1 r u J ^ M I ♦ c ( N * f j I » 1 3 • ( P Ub ♦ N 1 , L 3 “ T I 1 T ( N * N i ) ) 

0 u M ■ 2 » c ( N I c • 1 3 • W* < N * i 0 . I- ) - T I N 1 T i N * 1 Q ) 3 .. 

I 3 , 7 ) =^G i b . 7 ) ♦ - UU!*P2 


HLaT out via COnUuutANCE '0 structure 

0 7 5 f* I * I ♦ I 2 

n 5 T R T * K C. E P { M N 1 3 / 1 0 PC 

l'iTKY=<E.Lf' )-N5 TkT»' lOCC^NSTRT-i 

bUNr-C, 

^0 

00 5C JtrMbTKT.NTHY 

u *' = I b I ^ t u 3 

T t. *i P ^ P ( i', ♦ i\ I r - P ‘ N 0 ir. , L ) 

bC Sjn; = SU''-1 + VAL I J) "TLPP* iCOUpIJ) 

6 3 C -J N T I N’ U L 

N3TRT-- lCLP I i'3 + N I I / 1 dOO 

NfPr = LbE.PI'^-j'fyM-f^STK T*lCCQ ♦ NSTRT ~i 

Su'-.R « . r • 


H I 
c 2 

s ■> 

c 


6 » 

7 • 

d A • 
c 9 ♦ 
u • 

V t * 
■: 2 

Vi* 

y 

75* 
9 6 * 
9 7* 

9 8 * 

-.’ ; • 

1 U/ * 

i W I • 

I G 2 * 

1 3 -i* 
i b 8 • 
; u b * 

■• I b s * 
l J7* 


h j 
ttO 
75 



] 


CD 


lf’(’< 5 TRT'*EQ*w 3 To H 3 _ 

T N = fM 1 t U 3 ♦ • - ■" .' ' ' 

V u ti 5 H * 1 4 S T H [ 5 N T R Y 
l* 0 .» - Jbl(j ‘>^^3 

T f- :•; p s T M - P ( f» 0 » L 3 * * H 

s bUf’R ^ ixVAu^m) • Tt.SP * ; COUP (M3 


CONT : -PJE 
C 'vi fn T I N U L 
TCCUP AT 
C ( 255*1 , 
C ( Zb'**! » 
T u T C U ■=■ ^ 


: u P ♦ Sum 

«C : 255* I ♦ 


SUMK 

* C ( 250* I 


M 3 ♦60- *OELT 


^[ 3 , 7l^<i(6, 73 *TQTc;UP*DElT 

1 0 UPaQ • 


Total heat our 

(>(/i7) s» G(‘*»7) * 'j(5»73 * G(o»73 

PtMTiN-HLAT'JUT 

(=(dt 73=(a(3f73-Gl7» 73 

■ '4 “ . 4 * bil; 

CL' 4 TIRUL . 

V t. T 0 ^4 


C- lb u 


1 N I T ( N * 2 3 3 3 

2 j L 3 ** . _ 

MlaT Pc*'*' pYbTuM 


line LUbb 
LwMPohC.NT LObb 


L 'O or compilation; 


f >)0 diagnostics 
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i 


C'.'-i''’ (OFT) VERSION 


SlJtJ'OUTiNE. OBAL 

variable: n a n l 

laiG 


ARRAY Op 
NODES 


OEbCRIPTiLN 

CONDUCT i ON/CONvLCT i ON COUPLING 


wr^ I Tb 


JJ I G 
G ( I I 7 ) 


N S T R T 

NTR Y 

RvaL 

TCCUP 

TOTCUP 


COUPLI.mG NuOLb 


ARRAY OF radiation COUPLI.mG 
HE AT IN' 
l=H,7 Hi AT OUT 

l = e lkror 

location or- FIRS I NODE IN I 
'arrays CJUFLL'j'tO NCOl (N 
location 0 L A b T NODE In 10 
ARRAYS COOPLLO TO NOUc (fx 
array of RaOIaTION COU*'LlNG 

tc-yal hlat Cut via coupling 


It)I& OR UylG 
( N^ N I I 

IBiG Ok Jblv» 

( ♦ N 1 ) 

No COtf-PlClLNl^ 
N G T 0 * b T K U L T u K L 



JQf 


CUi-i.’On/£XT« 


3 1 • 


c 0 !•! ,• 0 ,N / /> c r / 


. t 


L . L i '• VLL'-CE 


i.- 


G '• r ? ' 1 " 0 • 


: -1 • 


uO r' :' = 1.N 




• S G 1 b 1 / ? = 3 < S t 




‘■»Iw3 


c ; • 


0 u ICC I ^ 1 » 


3 o • 

c 


o o 

3 V • 

c 

P U r. R HEAT 

^ w 

” L- ♦ 

r 


►13 c5 

• ♦ 


G 1 1 » 7 / * : 

c w 2 -t T ❖ I 1 I J ” 

II 

•' I: 

•9 

r 


•' «, V 

c 

T u R ! N E HE A 

/o " 


c 


i-H *T3 

, 'y 

AA . f j 

, O 

f 

r 

r 

G ( 2 j 7 I * 0 ♦ 
TOTAL HEAT 

3 OQ 

c - 


G 1 3 » T J = rj ? I , 


» • 

c 



’•••On K iL » 0 CLT , T I mC » T 5 T 0 P ,NN 0 D 
/ • 0 W p ( 3 0 C f ^ I f ^ ( 3 r; c » ^ ) I C r 3 C C • 
•’'■■ON 0 U I *■ < I 0 0 ) » T U V ’ ■ ( loci 
K , 0 N / A ■: H A Y / G ( 3 0 C ^ 1 0 ) I T I N I T t 
;■• • 0 N / Cj L 0 b / ' - E T 13 0 0 ) » I U I G ( 2 C 0 0 
LIE? I 3 UC ) » JB I G I 2300 
iI- On/EXTRA/ I coup I 3 C 3 ; 


rcK One system for onl comp cycle 
total Plat cut via couplIwg io structuhc. 
^ll Three bYSTEr.b p-^us line mnu 
component losses FOR' Oh L LUMP CYLLl 
aft: AY or cunouction/conveution coupling 
coefficients 

ME , T5T0P , NNODES 
3 r;C , 2 ) I C I 3 CC ? 23 ) 


0 f U/MR 
b T u / H f< 


HEAT STORED 

ClH,iI* IplPtD-TlNITtM) J .«< OF 


H CAPacITaN.l 

acTUaT0K> -AwD In later 


,H) * ClN*HiM) ♦ Q {^*7 n ^ OELT 

♦ •IcI^‘*’li‘T*»UELT) If APU hEAT PER ST:>TE^ 
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b2* 

b3* 

b7« 
b c • 
b ? ^ 

6a* 
6 1 * 
i'Z* 
6 3* 

6 M • 


Q . (OFT) 

C HLaT out BT H20 “ 2 of 2 

C 

*GCN*2,SJ'^Otl.T*<G(N^2,5) ♦ (P(N^2,L)-TlNlT(is*2)M 

C I 2b24 I , 2 ) “C t 232* I • 2 ) ♦ G t N* 2 « H ) • DEL T • ( G ( ^ i b < * ( i N ♦ 2 , L) - 

• Tl.%ITtN'^2JJ) ♦ AATtKHLATPLKbTbTLM 

C 

C HEAT 5‘ORED In CAPACITANCE* 

r 

w 

D U M i'» l * C * 

D02SN 1*1,14 

25 lsDU?^yi*C(N«*-Ni,ll<{P<N*Nl ,L)-TlNlT{N*«‘Nn I 

DU.^iV;? ^ Cr'*iv)P*lFlN*lO»I-)-TINlTlN*10)> 

G ( b I 7 J *G ( 5 1 7 ) *• DUMHl - 0'jMM2 ' - 


6b* 
66 * 
6 7 > 

6^i * 

6 V a 

70* 

7 1 e 
72* 
73* 
7 m* 
75* 
7 6* 
77* 
? 6 * 
79* 
60* 
t 1 • 
6 2* 


» 

87 • 
c f) * 
£i'y • 
90 * 
^ I • 
r 2 * 
7 J, * 
■? 1 • 
95* 
96* 
9 7* 

9 5* 
V V* 
i 0 G ^ 
iCl* 
1 C2* 
t 03* 
luM* 
IDS* 


C 

C ntAT OUT VIA CONDUCTANCE T0-5 TPuGTURE 

r 

DO 7 5 • . 1 « : » I 2 

-sbT^-^' T-rtKECP I N*N n / ICOC 

N7r<Ys>;rEflf^*^n"^^^l*^T*l000*NSTRT-l 

5Uri«r/ 

IM-^T«'T*EQ*0) tO TO 65 
OU aO JaN5,VRT,NT^Y 

NO.. ' I ^ I G ( J ) ■ ' 

T M T p t N * u 1 , L ) - P ( N 0 A » L ) 

50 5UP. = Sup + VaL ( J) *Tb«P* ICODPIJ) 

6 5 C 0 N r i N U E 

NbTf'T* Lt £P I N*‘'« P I coo 

NTr{Y * lEEP I ) -nSTRT* loco ♦ NSTKT ~l 

S U H K r. Q • 

i't'<STPT*ED*C) GD T9 63 

T M “ P ( N*.N : , L-) • *4 - - 

0 ' 5 K * N 5 T K T , ,N T R Y 

ij I. “ J ►i i 5 { I 

7r. f' s7t.-,r < *|0A ,L ) **4 

bu.Nn e SUhK * PVALIMI ♦ Tt^^P * ICOUP(M)-- 

6 5 C 0 N r I N U E 
a 3 C U N ’ 1 N U b 

7b TLCU^ = TCCUP * bUN * SUMP 

TUTCUP- TCCUP * 

T C u f * V • 

bt6t 7)*G(6» 7)*T0TcUP*ObLT 

T u T t U p - 0 • 

c ■ ' 

C total heat out 

Gl/i7) p G(4?7) ♦ G(5*7) ♦ G(6,7) 

C ■ 

c hlaT IK- he at out 

c 

Glbj 7)=G(0,7)-GI7» 7 ) 

^ ^ ^ 0 

100 continue 

R E r j R 
E N u 


3 OF CO^pI'-ATlONJ NO DIAGNOSTICS, 
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' uak,* 


"3 O 

ss 

> > 

•-3 ra 


SUa^OUTlNE; RSTARM ICHLCK) 

V A R ! A 3 L E N A r-i £ 


1 PT I UN 


I CHCCK 

1 1 I 



r 

s. 

IRS’ 

I !• 

c 


1 /■; • 

c 


I 3** 


C 0 n 0 N r. » L » t 

M* 


CO", MON pi30: 

1 S* 


C 0 !■: •■•ON D u M ( 

16* 


c 0 r. 0 / T Y £ 

I 


CUflrlOM /ARPi 

1 c 


E-^u I Valence 

? * 


E W U i V A L E N c E ( 


N0D£ \Um.B£K at which TO bTAHT Uu-LOuP FoK 

EACH SYSTEM ' 

FLAO showing that HSTaKT MAi? UttN CaulEw 
NODE NUr.HEK AT WHICH TO STOP 00-LOUp pUK 
EACH SYSTEM 

FLAG FOK type OF RE I N I T I AL 1 4 A T I UN — 

1*D£FINE NEW value "<i«KEAU In nEw vAlUE 


( JdU t 2 ) » C ( 300 ♦ 20 ) 

JUMIIOOI 

JM(3),A"'SNTM,FUUGE,SUMA«T(40t3I 


GO 1 0 I 2 , 0 2 ) I I R S T 


2 ; ■' 

C 



,r: 2 • 

C 


R 1 . ; : T I A L 1 , 

A J 

c 



2s* 


2 

CUN I I N'jE 

i ;? * 



OU IC2 M^i 

2 f; »• 



r 1 t N ) = S ^ 0 

2 ? 



P M » L ) s : 6 0 

? 1 * 



7 i - i ; ; 

•i 7 > 


102 

CUN T 3 NUE 

J'j* 

r 



« ! • 

Q 


R E i N I T I A L : 

J 2<’ 

r 




I “ 1 -rf o 

M 1 “ ! 2 C- 

O'-' N^J»NTUR{jN 

:j V p 2 m » I t 1 * I 

F 1 , K ‘ rS6c . 

P I M « L ) = 5 G 0 • 

T : I T I S } »S6C* 

2 0 2 c u ivl r I N U E 

i ' i ^ S C 
1 1 ; = I 2 3 
30 2 CV-i':njL 
I C P c. C ~ i 
R E T w A N 

HZr.^ nE.I INITIALUAIION JEI-Pb 

K^AJ?b,&02iNI.-J£^nN0i;E, 1 > ,MNOOE. I » 
5n2 FURiiAt { iS|SXr2r 

P < ri -3 r , : ) 5 P I N 0 u E , I ; ♦ M 6 0 • 

" .wDO.j)* F f nOL*E , i MH6C» 

P i N o 0 L I 2 ) P I ^ u E i 1 ) 

F ^ N 0 0 c f 2 ) =" F { H 0 D c i I » 

602 continue 

lC^c.C< “ I 
K t. T u H T-v 
C. ! '* U 


E • i , u ' C 0 *■• P I L A T I 0 N I 


NO diagnostics 
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Suui^OuTJNt; 3 PKAYCm1,M42,«11 »M^^) 


•t * 

b* 

6 * 

7* 

i> • 

^ » 

10* 

1 1 * 

1 

: 3« 

I M • 
i b* 
i b* 

I 7 * 

ia* 

1 ? * 
20* 
< I • 
22* 

2 3* 
2 i «' 

25>* 
2 6* 

2 7* 
2b* 
2 

JC* 

3 I ♦ 
32* 
33* 

3H » 

3b* 

3 ♦ 

3 7 * 

2 P » 
29 3 
SQO 
A i • 
M 2 * 
H 3 
MS* 
bb* 
M6* 
H 7* 
MS* 
M 9* 

SC* 

bl • 
S3* 
S3* 
b S * 
5b* 
56* 
57* 
5d* 
d 9 • 
b C* 


variable: name 

BTUH 

BTUL 

delw 

TCH 
T CL 


DESCR : P T 1 LN 


ON I 1 b 


heat to boil off to BRIno HYURAolIC ^LUio 

TO control TEhP 

heat to soil OPr to BKINCs lobe OJL to 
control TEMP' 

AMOUNT OT wATEK USED TMib COMP CYCLl FOk 

'Current system ^ 

CO^iTRoL temperature F0« HYOKAULJC FLUIO 
CONTRoU temperature FOR 


10 


30 

HO 


Ml • lube oil inlet node 

M2 - HYURAU'.IC fluid inlet node 

TEu- LUoE oil CuNTKOL TEMPERATURE 

tcm- hydraulic fluid control temperature 

dimension COEF(R) 

COMMON K. L* CELT, time, T5TDP,MN00ES 
common P ( 3 DC » 2 ),»•( 3 wC » 2 )♦ C ( 30 C t 20 1 “ 

C U M 0 N D U M ( 1 G 3 ) » I 0 U M n C 'J } . ' 

C U M r- 0 / C 0 M E V F / 1 A ][ ( 1 0 ) * A A T ( I 0 1 t 0 ( I 0 1 

data TCH^680*/TCL/72S*/ 

data roEr/ l»49529Hl E C^, -ItBeTSSlIt OCt 

t ' l#5867yC0 t-0^» - I , 0 I 9 2 20*3 1 -CJo / 

H « CoE'* I 1 ) 

UO I C I -2 ,R 

H a H + CuETM) * P|MI,kJ**(:-1) 

D E L •'< ^ V • 

DlF^L » F(M1,K) - TCL 

I F U I r F L i L T , a ) GO T P 2 0 
t:TUL « OlFFL * C‘Ml,3) 

UEwW s sTut^OELT/M 
i; I r ^ = F ( M 2 » ) “ T C H 

lF(^lF'hi*LT*CJ vaO TO SO 
t' 1 V.' ^ 3 I F P M * C I *'l 2 • 3 ) 

L‘El<* OEL* * <bFUM*DELT/H) 

D U 3 C I = 1 » 3 _ 

! F r. 1 ,NE * I *VAT U ) ) GO To 3C 

G 0 1 0 ** E ' ' 

C 0 T I N U E 

u I 1 ) a D E I A 

w A T 1 1 ) a ft A T f n ♦ D ft n ) 

Cl 1 1 , 3 J * C ( fU , 3 ) ' 

ClM22,3)ac<M2,3) 


Y «, 


r r 


L*LE.0) go to 50 


F ( M I 1 ,L ) a TCL 


w u 
60 


7C 


GO TO 60 

F ( M ! ! , L 1 • F ( M I # L 1 - - - 

C U N T I rj U E 

IF ( V IrFH.LE.C; GO TO 7C 
MM22,L) a TCH 
GU To BQ 

F(.m<2,L)*' F(M2»U 
COnIINUE 
R L T U R N 

£ !>< u ■ " ---•■■ 


End of compilation; 


NO diagnostics. 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


» IT? ’ 

% 


4 • 

7^ 

3* 


7 ’ * 

• j ♦ 

i ' » 
i 2 •* 
1 

I -i ♦ 

I 

I 6 * 
; 7 • 
; 8 * 
: 7 » 


iC » 
1 *» 
4’Z<* 

Z i * 
Z'<*> 
Zb** 
Z o • 
^7 ^ 
2 ti ** 
2 7 » 
JC" 


3 I ♦ 


_ . ♦ 

r' 

3 :7 

37* 

3 


o .•• ^ 

4 i » 

4 ^ « 

'4 ^ » 

M • 

4 7 « 

46* 

be* 

b i •* 
S2* 
b3* 


j 4 * 
b b • 
b 6 ^ 
b 7* 
b«* 
be 
6 C * 
i I » 
6 / ** 
4 3 » 
6 4* 
6 ‘. * 




- — ' 4 


4 U ^ ■ 


V “. n I A i5 L. L 


'u;li>C><IPTIun 


I f b 


A £1 - 5? 0 
A r : b b T i‘ 
b I Ci 

o.< 


CRO 


ah?^a'' C£ T I TlES F C*^ 

L c ^ ' H of P I b S I U 
fi A X V A L U f- I-' t 5 I K t ’3 Or, ® L U T 
b^LTA VaL'JC Of PARAFilITLk ^»c.n 


VAuCU^aT 4gf«S 


. I 

T Of 5 


/ 


nK 


inch 


f bcoe 

I L-. I C7 


T ; t F ''J U G e for L U r^ g M 1 S b I U b 


I DUM ( 3 ) 


I FLAG 
I POO 
i FL T 
I K 0 A 0 K 


C K 


I „ H A i3 H 
Jt I G 
JPLT 
L M H T R X 
NSC 
N T R 
R V A L 
T I H S U M 


AKRa^ of COr^DUCI lON/CONytC UCrj tOOPLlNb 

t\ 0 0 E s 

Flag usld to restrict pkihTing uone in 
F u:sT Call to prilt 

SYSTEM CONFIGURATION COpL- 

System configuration mairia 
node number for plot OESIKLU 
If^ITlAL OKUM address FOk kLAUINu 
?’ A I R‘ OF nodes Coupled ( k l a u in) 

Il'ITIaL drum address FOp; aKITINv, 
array of radiation COuPlIwvj NODls 
Type oP plot desired fok iput 
LOSS Management matru " ~ 

f^L'MBEK OF NODE COUPLING caKDS 
LI muck of traces on ThIs PLuT 
array of radiation COuRlIh^ COEFFiCiLNTi 
times For division of AcCuMULATtO hK 

consumables values PEK PMhSE in 

SUMmAsY table 


VaL 


aee 

0 R D 5 


array Of CONDUCT! ON/CONVLCT I UN LOUPlINU 

coefficients 

MjN value desired Of; plot 

ApR 7, Y Of alpha CHAKAcTEKb USED FjK 

greeting 


WORK 
X I 
XL 
Xq 

X H X I 5 
X M A X 
X M I N 


S 


Coupling coefficients for nudes in i.io^k: 
length cf Axis 

L fi R 0 R value (USED I r; T E R H A L L Y ) 
starting value Of PARaMlTlK UN MlUT 
LENGTHoFXAsIS iN 

MAX value of parameter 
M iN VALuE Of parameter 

length QF TA 5 IS ______ I 


I .L T E G E R P L T S E u 

Di MEN SI ON IVVOf.KnC3,2) »aOrK( 100i 2) ,ICOOPHlOC) 
DiMEnSiON .vORDS< 7,9) , IZERo(7M36) 

C'u ^r;ON . Li DELTi TJMEi TS T UP , ' NNODES ' ‘ 

Cl, I f? ON P(3CCt2)i r( 300 till .CI3C0.20) 

Common Du»MiL:)» idummoc) 

C 0 N /Extra/ I c 0 u p ( 3 U 0 ) 



3niFLAG.TFL„!3r 


LEt.Fl30C)»JBiG(2c:0C)»RVAL(2CJ-jQl 
/LUFrP2/ "^ITLEi 12) ,DlG(2b) ,WEE<25) 

/PSST/ NPLTS, IPLT l2S) ♦JPLT (2b) ,PLTbLw»TbTPlt>) »AAXlb(b) 
^AXlS(bj iNOPL'jTlb) ,N'=’LPTS»NTR(2a) iIvYRaUKiIhdAuh 
Es,u I Valence cdelic2 ,uum( 1 j ) 

EgUIVALENcE i lO’jF'lJb) 1 IPfRED) 


C 0 r" M 0 f 
C U M C 


- PREVIOUS VALUt. 

- PKLSEnT VALUt 
ODES - Nv. Of fjCOd'S 


TT-H'.'^f CURPENT Tjhl THlREAFTEK 
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/ 


r 


7 « 
7 ; 
7 b 
79 
ci:: 
^ i 

b'» 

B 7 
9? 

9C 
V I 
Vi 
73 
7 H 


^ W w j 

0 T • 


c : 

( I 
: I 
( I 
V A 


,JJ - 

I I J - 
» i > - 

- 

I H ^ “ 

u 1 ■'• C i 


C F> ' I L 
" t i> 7 « •■' 

I •- 7 A T* Tf<;s •? NC RErE N T 

I F.^',^‘'LRAT’J'>t 1*NC0L 
Tu^'Ht.HATUVt 


2 Of S 


° ^. A - t 
f J i U' 

c 

J A 
rtCP 
G 
( 


J»PNt.VlWvi Ok 


P H t i c I'* 


Kt jcr»T 


2V 

1 

3 

17 


-fKJ 

..Qk0j>/3 73Hh ! P PCQ'JICf^ DIGITAECS D0!;1T tcro»^ 5ht.Cb pf<^.^t.T 
lL ECS ■J'05 PKOCjI^T aNCGKaM CS PHOCS P»%uHNOGr(AU«bLL^«An »-Ku n 

••Ib TD E.f,Db«AH PfjKAM PM SCjC PK0GVc.3EN*TSECb PM ALE EKUbt-N^fttb^-f^TE n 
*'3‘wC.A.’I PKE uGkam CS PmCS b 5it1uLbLWT:j PKwSuNoRa 

• N b A 7 0 fi P T S 

♦ T 5 S 

'^0 l = l,7M06 
i 40bO ( I ) *0 
C A u u C U U Cn I C I C K J 
LuC!^ = CLJCr;»lDao* 

=MO0 { LOCK , 7 ? 1 
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YEdAcL KL50 L:JTi 0N FOR OT/DO FROM 10 TO ROu A no 


FOR 


10-Iit PERRYb 
_ AIR i b 
ruT^cTlOnb ARE 
PRLdb F KOn 1 M . 7 To 


•* ^ 


199 


F r 

T U - ' T 
I ^ { r -; 

0 y J T L 
c J..T : 
c 1 I :3 ♦ 

1 F ( 1 C 

TL;*t' I 
T ^ ? 

T - E = r 
I M I C 

' T 

F u n y A 
T t M p 1 
T L 

t D t F' f 


a(TC+F(K2»L} »/2* 

- n C - F ' < 2 ; L j i / M • I 6 • 

^^(TIO s . _ . 

^ c 6 *» A u I 0 ( A’ A T I 0 1 - 3 , 2 2 / T 2 2 • C M ♦ K A T 1 0 ) 

,^Z<7<>fOr^O * •:6Sb*YP -.U/65 
• i G . ^ F L 0 Cl 

.eV-lTF'cM-RSD,)* 
s C K A C T • b A 3 E 

V ~ F i L P H • A < E A / 1 R M • _ 

.‘. C 0 ■ • J b A R 0 ♦ U A C C N V ' ' 

:r i I u A c 0 N J + U A A A C) ) •» P ; K 2 » E ) ♦ U A c 0 N V • F ( K 2 t L 1 J / 0 A 
;-Tbfc.FF ) <jExP ( - ijA/,VCP)*TOEFF 
,E j » I \’N J T:l:*.PUT ( I 'j ) =TC 

; lb)=QDOTL{ IU)+OA/60,*5 <TI*T0)/2.-TBtFF) 

.‘iUL 

? b C » 9 I - E I I 3 ■*■ 2 b 0 t 9 ) ♦ 0 0 T L ( ID) 

••.'T+ 1 ,,\E • iPK^’T ) GO TO 300 

< i 0 ) a T b i\ p I C » i 0 ) •• R 6 2 f 
Till:'* T t P p 0 T ( t ^ j - ^ 6 G • 


-.699 0 


=• TBL'rF -9 


nT + T ,EN« IPR’^iT ) iVR I TE ( 6 . 1 V9 ) NN , U I Nt , KnOoE ( 1 0 ) f LTH ( i 0 ) , 

10) jTEnPoT ( Id) ,Tb£FF * ODOTti ly) ,FLo«Li 10) iNUEnT (N|>() 
T12>,I3i lX.l7,5X,IS*2At I5,5FiC.3,15) 

N ( I 0 ) = T MP I I I 0 ; + 960. 

T ( ( 0 ) = T r , I* I r 0 T ( I 0 ) * 9 6 0 • 

5: V3FFr *960* " ■■*' 
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1 2 I • 
1 22 » 
I 2 J* 
12 4* 

I 2S* 
126* 
127- 
1 2b • 
1 2 V • 
“ 130* 
1 3 I • 


3«j0 Cui»TInUL 
3 C 0 1^ T I U £ 
tAb T I D It I 0 
»^k. Y 2 « 1 C 
2 CUNTiNUt 

C C M L C L A T £ A C T j A T 0 K I ^ L L T AND 0 0 r t- E T £ ^ I L . u K 1 _ • i 1 - P t. K ^ i w r\ 5 l ^ i u £. * i , .j , 
C Pr<ti5bJRE JKUP AT ACTUATCN - nD ACTuATuK hEaT 
£(f^N,L) » TEMPOT ( LAST 1 0 ) 

I CONT 1 NUE 
RETURN 
End 


End op compilation: no diagnostics. 
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b O tJ R 0 u T I t T ri t R M K ( I S i R 1 i P A « u » 


1 

2 

i 

H 

6 

6 

7 

B 

V 

i: 

1 1 
1 2 
1 i 
I H 

I s 
1 6 
i 7 
i B 

19 

20 
21 
22 
23 

2H 

2b 

26 

27 

2b 

29 

J I 
3 2 
i3 
3*t 
3b 
36 
3 7 
3b 
39 
MO 

M 2 
M 3 
*1 M 
Mb 

M 7 
M 3 
9 

50 
b 1 
b2 

51 

3 

bS 

3 t 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

w 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE^: 

1 of 


VARIADlE. NaM'c 

A;UA 
FLACUM 

1 ti I G 
I 0 

■■ UTH 
I nn 
I .W T G 3 


JK 

KriODfc: 

LbGF 


D b C ■•< 1 F T I 0 *'» 

A,<EA qF SEui'lENT 

mCClI^UUaTOk Or FlOaR^^TE In LIN t 
EACh actuator i! 

Wl!^.a£R oF l6TfS Iti* In u I a i”- «- T l 
line index of LI.E L.E1N^ buLvt-U 
^ N (a I H 0 ^ * j r< £ b ^ : i L T 

N jj M o R 0 F k. 1 N £ S - •''' E I ■< T b ; ' f i- » * 

b £ C 0 N 0 D I G i T OF L I N R L r. u r ^ , T £ D u - 

LInE iS Fh’ESSUi^E Ok KcIoiMm Af'<^ 

V^HICH SYSTEM . 

TO'Al OF -kCTUATOnb bi-KV*Li 

S Y S T t n I 

b 0 U t J 0 A R Y NODE U li B E K 
F^AG TO 01>TInGlj:SH bETvu^ 


u N 1 ( b 


FRUri 


Lj t 
0 •■* 

>N 

r . « 


T n 


LT*^E^U 


nal 

n.n 

w J 0 T L 
TijEFF 
To 
UA 


REVERSE 
C I RCU I T 

length 0 f 


F L 0 


C Y E T t: .* 


u A i’ 


L I ( < E b c. G M E f’l T 6 L rt * N 1 N u 


i NTO 


. ^ ^ w 


h w T U A 1 ^ 

b i ’1 B r 


even D I V . S I c n 
S E G H E r. T 

Nijf’bER OF i. Ji-iLS S£RV;ClN'i 

mCTjAT Ok NDmdEF bL^'McIi. - 
MEAT L ^ S S ' Y i. N u * I- ; 

L F F E C T I V E J’ 0 ij N 0 A K Y T D r l m « T u x E 
tiN* outlet TEM-,.RATuxE 

Combined h e a t t f n s f l r ; l o t • • i c ■ • 


" r f L 
G^r. 

h Ni 

I 


* 


7 o / ‘ 

i- W 

-3 K 

• o / n I 1 4 - 1 


THIS S/R CCHrUTES THE INLET AND OUTLET TE.*'^ cF SYbTE,-i( 
STAkTJNG mT ThE aCTUaTOK OUlLE'b aNO GOING lo TnL T 
C OHM On r , l » OEl T I 7 i fiE , T S T Op t NUODlS 
Co^tMON P(3 0 3»2 ^iF(3dO»2)»C(-4'-« i2 ) 

C 0 M M 0 N 0 0 M I I 0 C ) I I U U M ( 1 G 0 ) 

C vj / 1 M 0 N / L I N E S / L i N U »*i { 2 6 u ) i r N v/ D £ ( 2 6 0 ) » L T r ( 2 - L) » - l ^ ^ \ 

1 T E j*' P I N i 2 6 0 1 , T L I-. P u T ( 2 o = . J ^ u r ( < v w ) . . 

2 f4 0 0 1. i N I S u » 7 o J » '• i. C N T • b u ) » U L‘ 0 1 u { 2 i 5 3 .M 

3 T E P rt ( 1 1 » 2 J I F A ^ U iY I 2 6 0 ) » F L C r. T i 2 o 0 


1 S ; 
E K 


Re. , LX' 

0 A w L X 


O w ) » 

Y - I i 

AH- 


C » 2 i » 

E ■'» i b » 


L : n: 


4. O 0 I > 


Cl I p L - I j 

b t 2 ; 


Common /act/ n h y o ( 3 , s o ) i n : . y o u t ( 3 ^ b *: ) i - 
C 0 n M 0 A / P K T / I P nl N T I I C N i ■» A {, A i *. E ( 3 T » 2 ) $ A w •< R u R 
COMMON / P K E S R ' S ^ H ( 3 J I 0 E N b I 3 i i P 0 R P I 3 I 
Common /h yD/ i poO { 27 i 3 ) ♦ lmmtkx ( so » m ) » POwLk i j 
UaTa ILTH/IC/ 

Capmr«q. 

YP= l,M2*AuOGiC(PAM^) - l.Mb/b9 
< t Y I s 2 • I S 
J N =■ I D J M I i 0 ♦ I b ) 

0 -- I 0 a I , J K 

L Y 2 *G 
^ E T 3 ■ u 

N N a ‘ : n * ■ % I S I N - ) 

* r t f - ft \ ' J # T t I • 

'' i • » S ^ . T I N*» ) 

0- 2 

* / * X X w' L i < I ’* ’* I ^ 

w. i • t • w ‘ ^ i • ^ 

* ■ » T 1 ? _ » • k ^ I k. ■_ 


i SP‘ I 3 / % i] L« w 


E “ 1 ) vj 0 To I 


ORIGINAU PAGE IS 
OF POOR QU.\LITy, 


ORIGINAL PAGE IE 


Hi 


by 

OQ 

o 1 
o2 
63 

0 s 
6 b 
66 
67 
66 

6 9 

70 

71 

72 

73 
7*1 
7b 
76 

7 / 
7b 
7 9 
60 
t 1 
62 
63 

b S 
6 3 
06 
6 7 
b 6 
69 
VO 
V 1 

92 

93 

9 M 
9 b 
9b 
9 7 
96 
99 

1 OC 

i u 1 
102 
U3 

I CjM 
I 06 
I G 6 
lo? 
10 ,' 

1 J V' 

I lo 
1 1 1 
i ♦ 

I I J 
I i 1 
; i b 

1 i O 


T ’ r * / *'. 
t >1 Z.1 .1 « 

I»'iTb2 =lIi>(£/1COO 

I M 32 a 1 0« I Nika 2 
I r< T 3 3 « 1 !>» r G I - I N r G 2 
IK(LDGP|ID)*«T.C^ INTG3 «2 

If ( INTG3«NE:.Ki;Yi ) GO :0 2 . .. 

1 F ( N £ Y 3 t w • C ) Gu TO *LJ 
f L A C U K ( 1 0 ) « f L A 0 U ( i D i ♦ F L V'* ( N K- J 

Gu TO 3 

100 Cunt I NUt. , ^ _ 

If (KFY2.£g.C) TO-'^h I N < I 0 ) » F(Nf-GbiL) 

F L A C U M I I 0 ) » F L A C u N ( I 0 ) ’ f L T» I .\ N T 

I f i F L A C U « ( 1 0 } . L T • u C ^ ( ! 0 ) I !< t Y 3 = i C 

If im:y2*£o»c ) fl^.i^idi sflowtiil)) * flyKn^j* f , . l ) 

I f ( N t Y ^ • 0 I FlO.T(Uj) = FLuATliDl ^ F L G *\ l i •_ A b T i 0 ) • T u riF 0 T i u b T I J i 

If (KEY3.GT«r) GO TO 2 
TLMPlNilO) » f LO AT ( :0) /Fi-OWU( ID) 

i< i* IbiGiiO) 

<2* KNU0£{10) 

OAtO<iO»*Cl*ICTM/SPAcElKl I 1 > 

AKLA«,l963M9b3«lLTH*Ki 
I N N * L T H ( I U I / I L T -t 
OTriLNO a lTH(IO) -lLTH*lNrx 
I f I LT hENO .GT . 0 ) Inn * INN ♦ 1 

If ( IN n.lT* 1 ) iNWsi 

Oo H 1 K= I I I NN 

IftlN.NL.ir^N) 30 TO 29 
I F ( L ThEnD , £Q . 0 J GO TO 29 
ArttA * Af<EA*OTHENj/|LTH 
OACONG = UACONO * G [HtNO/ ! L TH 
29 COf.TlNUt 

IfilN.EU'lI TIsTEMPIN(Iu) 

IfMf^.Ewi) TC^TI 
If * ’N.NL.l) TC*(To-TI)/2* ♦to 
I f I i N , NE • I ) T I a tO 
T I » TC 

T2«P<K2iO) , , 

TlMPZ st 1**3 ♦T1**2*T2 ♦ Tl*f2**2 ♦ T2**3 
OAiiA0*bHApE*A^LA*LNlSS'»TE«PZ*l.l3>7E-Ii 
KAiI0«(TC-F|<2iLM/Kl*l6# 

TF I lM» ( TC^F ( K2 » L > ) /2 • 

’ IF (KAT IO»ut • I .t-5) t?ATIO a l»E-S 
TuTdOo ,V6a6*ALuGiC(HATlO)-3*22/l22*CM-*-KAlluI -•6-iv3 
Fl'JG *.2227*YuTD 0 ♦,3b6b*YP -•11766 
/CTalO***PGUG 

6ASEa*6v-(TFlLK-960#I'* l-E"*^ 

FUPM =CfACT*DAbE- 
UAUoUva F 1LNH«AKEA/1***4* 

OAa UaCONO 4UARaO UACONV 
*CP»220.*FL0bL( lO) 

Totff »l <OaCO->10 + UAkAo)*P(K2,L) ♦wAC0NV*F(K2iLI )/uA 
Tu«iri-TbcFFJ*EAP(-uA/.sCP)-TiiEFr 
'•L/OTLlIO)«OOOTnIu)*'JA/6C.*< {Tl^''Jl/2.-TBt.Ff ) 

IfllN.cu.lNNlTcMPuTilO) *T0 
*1 0 u S T I N w L 

C; lj»2bOiH)sCl lb^2bCi9;*wuOTu( Jw‘ 

UiICNT*l.NL»iP9NTJ GO T'wi 30 0 
Tl^pIsi iOj* TLHrl.t; 



r\i 


C- 


"^5 



THErli'in 
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1 i 7 
I la 
I 1 9 
UO 

1 2 1 

122 
123 
12h 
1 2b 
126 
127 

l 2 b 

129 
1 30 
1 3 1 
132 
1 3 J 
131 
l3b 
I J 6 
137 
1 3<i 
139 
1^0 
I I 
1*^2 
i 13 
111 
lib 
iHo 
117 


t I u I 1 lT (> 


TtiLFf’^TDtFK-laO* 

I r ( I C N T ♦ I • C Q • I P H f'* T ) V; R I T E ( 6 » 1 9 9 ) N is i u I I* t < ^ ih w ~ v t i> • i u • 

• TL»iP i .\ { I C ) ; TtKPOT i I D ) , F , ^0 0 T l < I ^ , f Lu.i L ^ i ^ 

IVV FuKHAT(2^>13tlX|l7ibA|iS.»2A|lbt‘jr iu«3iib) 

Tc.hPl,\(lO)« U MP ! rj n 0 ) ^ 16 ^ . 

TLhpOT(lO)= TtrtpOr i I D ) ♦lt>u • 

TouFF* TbclFF ♦160* 

C U i\ T I N U E. 

^LY2»iC - 

C 3 • T I N 0 £ 

LAbT I D s I D 

Co.\TlNUE . . T 

C ( I S^2S9 * 1 ) *CAPmK 

CONTINUE r.r T 

CAPnK = 5YiTti1(Ib) CaPaCITanCL HEAT boAK k A T E (ol 
C(IS*2bC»1< s SYS^EM<Ib) L»N£ riEAT^UCSb ts^Tc. vtTU/ 
C(Ib'*2b3t1) - 3Y5TEM{!b) TOTAL .iEAT ^TL 

C(IS^2j6,1) * j YsTEM ( I b > ACtLATjR COuPLi-^U rEAf uu 

lCNKlG=lP00IlFLAU,l5) 

C( iS + 2b3»H)-FL0rtU(LAbTlD)*( (r (NI*^c|L)-rEMpUI ILAb* 

• PJKF*(lC'4ISl*2.17‘lb£-2) 

CliS'*>256ilJ=Cllb'^2b3»lJ-C{lS + 2b0»‘t»"CAPP“ 

I r I I C N T ♦ 1 • £ U • I P A N r J V« K I T E I 6 , 2 C 0 » I S » C * i L ■ 

• CllS^2b3»i) 

20C Fokv. ATilOXflO^-isL bYSTEK»i2,3ch loss 


< * i 

I NL 


V * , •’« I J 


300 

3 


I 

• • • 
• « • 
• • « 
• • • 


» ) 


fFd*3»l2H CuU'>Lii’4G'=iFo»3ibh 

F 1<M ->7 *L ) = Tf1P0T I LAbT ID 1 

C I N 1 ♦ / I 3 ) » A C P 

HLTURn 

£i 4 U 


'hH 

23w'|11 »C^ Jb^' 


f' T L b ( i T o 


LOAN “fFbt«>|9ri 


0 / p 

1 't i N 

b j 

♦ - • 

Lv> > 

.•> 1 fy 

TAL - . 


li-*i 4 ♦ 

M I U ( 

0 4j U 7 ♦ 

1 ) , 

: - i. i 

• w • 7 ,' 


* M A P. U J 
*? f u / i . ; 

?-.R i 
i« L 3 


END OF Compilation: 
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APPENDIX E. SAMPLE OUTPUT 


The following are examples of the tabular data printout and plot 
output from TAHAP. 




i^ocie Coupling Data 


CCNO/CONV COwI-lIKu 

NOOt HOGNtD TO KOOL 



lb*< 

1 .9 96000 + 00 

lb2 

1 33 

6.GOOGQO+00 


2bC 

1 *23 0000 + 00 

IbG 

... 1^2 

- ■ o.UOOGOu + uG — 


2b0 

1 *000000 + 00 

i bH 

1 bl 

1 • V 9 oQOO + OO 


2bC 

a *030000+00 

102 — - 

250 

1*000000+01 

1 69 

26 1 

1 *000000-01 

2G0 

2SQ 

2 *bOCuOG — u 1 

20 1 

230 

a * SuOOOkj — «j2 

• 

20^ 

1 *996000 + 00 

2u2 

2G3 

6 *OCOGGu+GO 

- 

2bO 

1 »^300GO + GD 

203 

202 

6 *OuOuuC + uO 

• 

2bC 

1 

20*4 

2 J 1 

1 *v9c»0C0^u3 

• 

2b0 

7 ♦ 3 o 0 G L. u - 0 

212 

2bO 

t 

2 1 H 

2 6 1 

i-.-vOOwOv — C 1 


230 

• — , 


c n 0 0 0 0 - 0 1 
COOUOO-U i 
LiOOOOO-Q I 
*;OJ00040U 
i'CjOOUu~D i 
000000-01 
00U3Q0-01 
lOOQuO vUO 
OOUOOUi-CO 
bOOOQO^OO 
ciOOOOO^OC 
wUOOOO'^iJO 
UUOOOG-U i 
CJOGCQ-Oi 
UUOCUC-0 1 
buOGGO^OQ 
t ODOOU+00 
OUCOCO^OO 
D 0 C u 0 C 4- 0 0 
OOOUUO-0 i 
C 0 0 u 0 0 - 0 1 
^OUCUu-fOO 
7GODCu<«>00 
GOOOCO-Ol 
t.OOOOQ-Ol 
tOOuOO^OO 
OQQCuC-ul 
CGOOOO-Q i 
j;GQG2u-0i 
=0 J0U0-G2 
996000+00 
OGOOOO+CO 
ibOQOO+GO 
COOOC J+CO 
COOGeu+GO 
vv6uGu+G0 
23GOOGvCO 
C JOOuO+00 
GOOOOO-Cl 1 
buOuOO-G 1 
bUOJOO-02 


Cond/Convection 

Coupling (Cont.) 


Node 

250 


2£»2 

253 

2bb 


21>6 

257 


25a 
260 
26 1 


Node 


Cojrncic.iT: 


ICQ 2 

ici a 

102 1 

1 G3 I 

ic*f u 

i 1 2 6 

I5Q 2 

151 b 

152 i 

153 1 

IbH 6 

162 1 

200 2 

201 o 

202 ! 

203 1 

20S 7 

212 6 

le I 

IV I 

20 I 

2 1 - - I 

10 2 

1 1 2 

12 2 


1 2 

lb 2 

16 2 

17 1 

22 J 

23 3 

2M 3 

2 7 — 1 

2B 1 

30 3 

32 ^ 

- 3 7 I 

2b i 

26 1 

29 3 

3 1 -f 

33 2 

3M a 

3b 1 

36 1 

1 1 H 1 

16H 1 


s:iOQca-oi 

^0 0wC>C*^G2 
2500CG‘t'U0 
OCOOCG-ruO 
iJJQGC’t-CO 
bjOOOG-fOO 

ao jooo -0 1 

b U ii 0 0 0 - 0 2 
2500CU4.LC 
UOOODC-fLO 
0i0C0G4.00 
00uUD0<*-01 

acooco-c - 1 

5U0000-G2 
25UQGO-^00 
UCl JQCO + 00 
360000 >00 
‘IbOGOO + CO 
OCOCCO+00 
a 0 0 0 c 0 ♦ 0 0 
acoocc<*-co 
aoQOoOfOo 
Q03GC0**O 1 
CQQOUu-Ol 
000^00-01 
HlOOCCs-OO 
0gJ0u0«>01 
COQCGO-C 1 
OCuOOO-C I 
‘iuCDCCitJO 
UDCOUD-0 1 
uODOOU-O 1 
000000-0 i 
^OOjOQ^OO 
S0G00Q<*00 
UJuOuG-Gl 
/OOOOJ'.’CO 
OOCuLu-G 1 
SOGCOU-t-CU 
SOOUUO'^uO 
COOCi)Q-Qi 
7uCuD0i«CU 
OOCGCu-C 1 
CuuOOU — 0 1 
o 0 0 0 0 G ^ 0 0 
000000—0 1 
OjQCOO-G 1 
OOCCGC-C A 


219 


1 .000000-01 



10 

2;?5 

1 

•2200C0-10 

1 \ 

2Sb 

1 

*220000-10 

12 
1 J 

2 55 

25b 


•220000-IC 

*770000-10 

9 

1 « 

2 35 

1 

•2200CC-10 

1 S 

255 

) 

•220000-10 

1 6 

255 

i 

.220000-10 

1 7 

2 55 

9 

.770000-10 

16 

252 

i 

•.232000-09 

1 9 

252 

A 

.232000-09 

20 

2 53 

1 

*232000-09 

2 1 

2s3 

1 

*232000-09 

22 

2S6 

1 

.820000-10 

-ij 

256 

\ 

.820000-1 0 


— - 25 7 

- i 

*820000-10 

25 

25tJ 

i 

*02/000-09 

26 

25« 

1 

.02 7000-09 

2 7 

257 

1 

.027000-09 

26 

257 - - 

I 

• 02 7000-09 

29 

258 

2 

• 1 MOCCC- 1 0 

JO 

5 7 

2 

* 1 MCOCO-iO 

J \ 

2 58 

2 

• 82 1 000-09 

32 

y ti *7 

. 7 

•821 UOO-09 



33 

260 

1 

.330000-10 

3H 

260 

5 

. 1 VOOOO- 1 0 

3b 

260 

1 

•C63C0C-09 

3 6 

2 6C 

O 

•900000-1 1 

3 7 

257 

2 

•900000-1 1 

I'JI 

2 »C 

7 

•5379C0-1Q 

1 L‘i 

250 

5 

.563500-07 

112 

7 n 

b 

•965000-09 

3 U . . 

Ibi 

250 

7 

•537900-10 

IbH 

250 


.871900-09 

1^2 

250 

6 

•71 7700-09 

2C. 1 

--250 ■ 

7 

•537900-10 

2CH 

250 

<+ 

♦S3390C-09 

212 

25C 


• 1 7S300-09 


Node 

ZbO 


Node 


2 b2 

2b3 

ZbS '■ 


256 
2 57 


2b8 

260 


Coeffleient 


IQl 

7 *337900-10 

1 0 ‘t 


; >2 

B^VASOOG-OV 

ISl 

7.337900-10 


M *87 1900-09 

— i 62 * 

- -6.7 17700-09 

201 

■/ .• 3 3 7 9 C 0 - 1 0 

2CH 

H . 433900-09 

21? 

4 • 1 /43G0-09 

- ib 

1 .232000-09 

IV 

1 *232000-09 

2C 

1 . 232000-09 

2 1 

1 .232000-09 

1C — -- 

1 r 220000-10 

1 1 

1 .220000-10 

1 2 

1 .220000-10 

13 
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M , 6 3 o 

'■i o . b M 2 

3 1 * Mbb 

. 9 1 H 

2 * 6 6 2 

bb 

* 



7 

2^2 J 

23U 

2 iJ 

6 b . 7 2 1 

•1 b . 7 0 U 

J 1 . MbO 

* 2 . U 

2 • o ft 2 

bb 




.- ; 

1 1 ’ 

2 bU 

33 

M b ♦ 7 J U 

M b • 6 7 3 

3 1 . M b 0 

« 2 b 6 

2 • B d 2 

b b 





2 ,’ 

] M * 

2b'J 

3 •.■• 

Hb . 676 

M b • 6 M U 

3 . . “bO 

*37 1 

2 * Bo2 

5b 





^ ? 1. 

SyS?LH 2 

^ £ A T u 3 S 

« A 1 L b 1 b 7 

U/MIn; - 

LlNtb » 2 1 

,503 COOpLiNti “ 

, Lm.6 

S0A< - 23i*?37 

total “ 

^ 6 U t c ^ 

. -, 

j 3 ~i 'j 

2 b U 

M3 

b 2 • 3 2 ft 

b 2 . 2 V 6 

3 1 • ‘7 H 

* 52 b 

M * b 0 0 

1 M 




1 : 

i bU 1 

2 3 'J 

72 

2 . 2 6 

b2 • 2M3 

3 1 • 7U 

• B 7 6 

M • bOO 

1 M 





2‘.2!J 

2bU 

M 3 

b 2 • 2 M 3 

b2 . 2 i 1 

J I * M 7 8 

• 522 

M*SIUJ 

1 M 

. ******* 

* - ' • 


1 z 

2S 1 'j 

2 b o’ 

b 

b 2 • 2 i 1 

b 2 . 2 J 7 

3 1 . ft 78 

• Oft 1 

M * b U 0 

i s 





2 ; i 

2 b u 

6 6 

b 2 . 2 0 7 

b 2 . C V J 

J 1 . ft 7 b 

. 7 VU 

1 • VC'J 

1 M 




J / 

'.723 

/b J 

1 

‘j2 • OV 3 

b 1 . V U 1 

3 1 . b 1 M 

J * 3 3 .3 

1*900 

1 1 




1 

f- ^ .* 

2b‘' 

b6 

b : . V U 1 

b i • C 1 1 

2 L) • 6 i.’. 3 

• 630 

1 *900 

1 M 


' 



23 2 i 

? ■’ ■ ^ 

1 M 6 

3 2 ♦ 2 0 / 

b 2 *022 

3 1 . M 7 8 

1 • 7 ft 3 

2 • 6 JO 

b7 






2 b 0 

2H 

bZ . 022 

5 i . V V 2 

3 1 • M 7 / 

* 2 ft ft 

2 .600 

5 7 




* >• 


2 S -J 

; 7 

6 1 . V V 2 

b 1 . t 2 2 

3 1 * M V V 

« 6 ft B 

1*100 

5/ 




: .. 

. -O 1 

Z !? V 

1 0 : 

b ; .3 22 

b ; . 7> U U 

3 1 • *1 '7 9 

. Ij V 2 

1 * 1 0 0 

5 7 


■■ 


A - 

7 7 ^ ? 

2 j2 

1 : i 

b 1 . 6 J J 

. 1 V 3 

20*000 

1 • i M r. 

1 . i 00 

t> 7 





■ 3 '-• . 


22V 

3 1 . 1 V 3 

bO . 6«>U 

20*000 

2 * bbU 

1*100 

57 




? ■ 

: ^ ' 3 

2r>U 

3M 

b i . V 2 

b 1 • V 3 / 

3 1 . mV V 

* 3Ub 

1 • b 0 0 

bv 



- 

i. 1 

bro'i 

2 33 

l^JQ 

b 1 . V 3 7 

b J • 7 2 / 

20*000 

1 • 1 bM 

1 • b U 0 

59 


— 


•? • 

3 3 U 

2'3i 

V2 

b 1 . 7 2 / 

b J . b06 

20^000 

1*215 

1 *bL0 

59 




: / 

i. ■‘ 2 •< 

/ b b 

b/ 

i> • , / o 

M.) . 0*^ 7 

20 • B*'6 

* 550 

1 *900 

3V 



* 


h. ■’ i 


2 ; 6 

. 0 V 7 

M 7 « 933 

3 ; • M 9 V 

1 • 1 M 0 

1 .900 

39 




• 

b ' j s 

■ 2 b 2 

2^b 

'• fi « <■’ 6 1 

Mo. lb 0 

2 0 * J 0 0 

2*3b3 

1 * 1 OJ 

5 / 

. , . 


* ' 

. 

b - 2 

2 b 2 

1 J 

'! 6 • 1 b 0 

M 7 . 7 t J 

2 U • 0 U 0 

i * M 7 1 

1.10 0 

57 




j 

^ 3 1 

2bJ 

; 11 3 

ft 7 - / o b 

M 7 « 6 1 2 

J 1 * M b 3 

.7 00 

1.100 

5 7 





2 o i V 

ib'J 

b3 

« 7 . 6 1 2 

M 7 . 5 2 M 

J 1 . ft b 2 

» 3 b 6 

1 . 1 00 

5 / 




Z i 

b ('.• j ’j 

Z It j 

ti ft 

b 3 • b 1> 6 

b 3 • 3 6 M 

2 u • cj 0 0 

1*217 

1 « b 0 0 

5 9 




2 1 

':■ 3 M 

2b J 

I b i 

b 3 • 3 6 M 

b J . U 7 3 

20 ♦ OUU 

1*601 

1 • b 0 U 

5 9 




f 1 


2^1) 

33 

b 3 . 0 7 3 

b3 . U I 6 

wl *bU3 

* 3 1 M 

1 • bOU 

bV 




;; ■ 


• ^ b L 

Mft 

.ft CJ . 6 V 2 

F. 0 • 6 3 7 

j 1 • 73 

• 5 09 

2*600 

5V 





i: * ' / \s 

2 b •. 

V2 

b 0 • ft 3 

b 0 * b 3 3 

3 i • •* ; 3 

- 1*013 

2 • 6 0 C 

bV 



*•**"*■* ' 



2 b C 

Mb 

b •? . b 3 3 

b 0 . M 0 i 

3 : . ft 7 2 

• ■.93 

2 *600 

59 





/. ^ r !'• 

2 b L’ 

1 0 3 

•i V » M 0 b 

M V . 3 ft i 

3 1 • ft o b 

1 • OftO 

M . b 0 0 

bV 





■ ^ ' ! 

2bU 

bV 

M V» , 3 M 1 

M 9 . 3 ‘J b 

1 • M 6 b 

. bV V 

M . bO 0 

b9 




2 J 

I A 2 J 


2 

*1 V , J U M 

M V . 3 'J J 

3 1 • M 6 7 

*02 0 

M . bUU 

59 


— 


2 1 

! 6 u ’ 

b J 

MO 

M V . 3 0 J 

M 9 . 2 7 V 

J 1 * M67 

, 05 

M . bUO 

59 




, 1 

/. f» 

2h W. 

2 2 

M V . 2 7 7 

M V . 2 0 b 

3 1 *Mft7 

•223 

M * bOO 

59 





i 3 > 

bYv,TE.H J 

*1 1 A 7 - 0 S 

A 1 L b ( 0 7 

U/.UN; - 

L I N L b » 29 

,307 coupling » 

.211 

bOAK • 35t»D6V 

T 0 T A . » 

3 L ft . b t ; 
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7r.3m?] Data 




- - 0 -/-12.0C 

* ■ 




CCi^P 

FLUID 



TLP-P 

TL 

HP 

\ r « 

H D ‘"i T H 1 

S C • ^ 1 -- - 

60 

• MO 


y<.y^r-il L''JT 

. UO 

60 

• Mb 

1 

, "J .’1 T K 2 

7 ♦ ;? i 

66 

. 3M 

m 

^ . '•1 T 2 C ‘J 7 

. jO 

5 / 

• M 3 

m 

^ ' P H T 3 

c ?. • ^>6 - ----- 

7 5 

• 7 1 

■: -m 

OUT 

• CO 

V2 

• 13 

, -' 

? J « 3 t K V 0 

6 • 3 •? 

7 b 

• 7 1 

- r - 

S>i CUT 

.00 

79 

.26 

' 

:. V r ^ i 

5 3. jk - . 

63 

. M'J 

« 

5-“7xj our 

. r> 

♦♦ - w 

62 

• 7M 

. ” 

’ TK 2 

H9 

6 6 

» 3 M 

• 

0ri’i:i;2 OUT 

.CO 

59 

• 61 

V- 

' T K 0 

d U . u / 

7 b 

• 7i 


OO’IVHJ CUT 

* Q 0 

90 

• 30 

- 

5 -i ii "i V 

6 1 . 3 V 

7b 

• 7 1 

- 

O'*! i: H »' our 

.00 

79 

• 26 

• 

.. ' 
u .. : u -• » ' 

« 3 • 3 i 

73 

• 7M 

- 

L '.) i L. » 0 0 T 

• c 

7M 

.Ob 

• • 

Li L i V' 0 N 

3 9.tr 

7 0 

.99 

; - 

LI L L . OUT 

• 00 

7b 

• bi 


'■•: 0 L L L V 0 N 

M i • jii - 

7 i 

• 73 

- 

/; 0 t L V OUT 

.00 

7 1 

• 9 2 

•• 

' 1 1 L L V 0 N 

Mb • 67 

7b 

• Ml 

- 

f: I ^Lv OUT 

• uO 

80 

• Mb 

- 

- .•* 1 H i 

3 2*'-^ 

6B 

.29 


■) T k I OUT 

. u U 

V 

• I b 

- 

,J U f 4 ' 

3 1 » o i 

66 

• 29 

•• 

OUT 

. UC 

3 1 

. 8 i 

- 

u F >* T K 3 •• 

'■ ^ i * b - — ■ 

6 9 

• 5M 

- 

;■: “ T r: 3 .0 J T 

• u c 

3 1 

.95 

- 

co y^jo 

M M • U 5 

6? 

• b2 

- 

i_ C : : < our 

• 3 0 

6 1 

• 09 

- 

u I 0 > '• *’ 0 0 

b 5 . 1 0 

7 3 

• C3 


L : 0 OUT 

• tj C 

70 

.35 

« 

HQ 'ft ,■•. ’’ j 'J 

M -1 f M b 

69 

. 6 5 

» 

; : 0 ■ ^ ^ 0 U 7 

• CO 

6 1 

• «2 




7 7 

• c. u 



^ c. ^ ^ c - 



, - .. 

k I --i^r OUT 

• oc 

63 

• 1 8 

- 

L f.Lj UPL?; 

2 2 • 0 U 

22 

• 00 

- 

L y u j U P OUT 

• 3 0 

22 

.00 

~ 

r: .' L U U r* L K 

2 2 • L G 

22 

• oc 

- 

k:'i.Q’jP OUT 

• wO 

22 

.00 

i "* 

k k’ L 0 S I p 7 

2 2 • u 0 

22 

.00 

- 

L 'll- >’ OUT 

• G 0 

2 2 

.00 

- 

R r<Qu STKT 

22*00 

22 

.00 - 

- 

R F Q U U T OUT 

• CO 

22 

.00 

_ - 

iO - G U P L U C K 

2 M • 0 0 

2M 

.00 

:< - 

,N Q U C U T 

• w 0 

2 H 

• ou 


: . •. •’• S T V V T 

.n|T 

2H 

.00 

' - - 

N . ;■ <.- 1 7 0 u t 

* 0 0 

2H 

.00 

; 1 - 

G i H N G 

b 7 . 8 

69 

.33 



0CC:C!C*CC'CC0C.CT-*«C**0 — C»-C VC CC cc;<r CJrOC C-t CXCCjCITOUCIT 


Actuato*" Assignnents 


1 N 

1 

1 

2 

3 

1 0 

1 H 

20 

22 

26 

2b 

29 

30 

31 

32 

33 

3m 

35 

36 

OUT 

i 

3i 

52 

53 

60 

64 

/O 

72 

76 

/6 

79 

«0 

til 

ti2 

ti3 

8H 

tib 

ti6 

1 N 



r> 

6 

11 

- I 5 

1? 

23 

2 5 

27 


... . - 



— 

— 

■ — 


— 

OUT 

2 

Si 

bS 

56 

6 1 

6 5 

69 

7 3 

75 

77 









I r; 


7 

b 

9 

12 

13 

16 

17 

If^ 

21 

2H 








Out 

3 

r»7 

b« 

59 

62 

6 3 

66 

6/ 

6b 

71 

74 









AccL-rriil ated Ccnsumablss 

\ 0 U C I il’ 2 
M C J 2 -J 2 
\ n 0 K 2 / L 
N 0 2 / :> 

M 0 L.- 1 2 1 /■ 
mOdl2 
U L) C 2 ’/ 6 
f\' 0 i) E. 2 7 7 


ACC'JI- JuAxLO CONsUMAbLtS « 
ACCUMULAiEU CONSUMAbLtS * 

ACCvT'-'-.A T r L» C0NbUNM;3Lfc-5 « 
Acr A Tt.U rUclL (i-bf*) " 

ACCbrULAfti-* FULL (LS^*') " 

A c c u M u L A u. ‘j Fuel < l t ) •» 

ACCU.'^ uiN'LHGy (HP-hK) a 

A C C'J M L N E K o Y ( H P - -i K ) a 

ACL'j;^ ^fvitPur (hP-Hh) =■- 


0 .0000 
0,0000 

UtOOOU 

1 • I 2 i ‘<♦0 I 
V • V7b3+U0 
I • 0 S' b H ♦ 0 1 

1 . 367 8 + 00 

I . 1 23U“»-00 
I .3222«^00 
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t»7 




.'larv Table 


'■sE’iL"!" LOAJJING 
'J 5 A Li L r S 

ASVI^.F- -'ENT yn ^HSSJ 

REblJ’jALS 

*•■ [ K f f'.ur’i UbA3L£: 

1.' S, A 5 L t. E W I ^ E H e • ■ T b 

L A AU 'iCH 

F L i G f-. 7 R d U I K t '■^ E N T 
pot>t landing k^'Juinement 

2 ‘^ hOU^ LAUNCH HOLD RECYCLE 
L a, u in E K d N T 

0 ; li r E R s 1 0 N s c i o « ) 

OSA'^LE f^ANGlN - 



fuel. LbM 



«<ATer, lBM 


system 

1 SYSTEM 2 

SYSTEM 3 

SYSTEM 

I system 2 

SYSTlM 3 

295*0 

295*0 

295*0 

161.4 

16 1.4 

1 6 1 • 4 

25,0 

2b .0 

25.0 


>0 

• 0 


5*^ 

5**i 

25.0 

25, U 

25.0 

26^*6 

26M . 6 

264.6 

136.4 

1 3 o • 4 

136.4 

3 1 «3 

27.8 

30.6 

.0 

• Q 

• U 

Z 1 0 • 6 

132.6 

204.4 

41.2 

4 1^8 

54.3 

7n6 

6.9 

7*6 

• 8 

1 » 1 

1 .5 




n 

.0 ■ 

,0 - 

31 *3 

27.8 

— 30*6 

- • u 



2B . 1 

2M .5 

27.3 

4.2 

u r. . 1 

4,3 

b9 * 2 

5.6 

75.0 

-4H,b 

- — ■ —5.0 

-35*9 

Y V. . 1 
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